NASA TN D-7602 


NASA TECHNICAL NOTE 


NASA TN D-7602 



COMPUTER PROGRAM FOR 
CALCULATING THE FLOW FIELD 
OF SUPERSONIC EJECTOR NOZZLES 


by Bernhard H. Anderson 

Lewis Research Center 
Cleveland, Ohio 44135 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION • WASHINGTON, D. C. • APRIL 1974 






\ Report No. 2. Government Accession No. 

NASA TN D-7602 


4. Title and Subtitle 

COMPUTER PROGRAM FOR CALCULATING THE FLOW 
FIELD OF SUPERSONIC EJECTOR NOZZLES 

7. Author(s) 

Bernhard H. Anderson 

9. Performing Organization Name and Address 

Lewis Research Center 

National Aeronautics and Space Administration 
Cleveland, Ohio 44135 

12. Sponsoring Agency Name and Address 

National Aeronautics and Space Administration 
Washington, D. C. 20546 

15. Supplementary Notes 


3. Recipient's Catalog No 


5. Report Date 

APRIL 197^ 

6. Performing Organization Code 


8. Performing Organization Report No. 

E-7476 

10. Work Unit No. 

501-24 

11. Contract or Grant No. 


13. Type of Report and Period Covered 

Technical Note 

14. Sponsoring Agency Code 


16. Abstract 

An analytical procedure for computing the performance of supersonic ejector nozzles is pre- 
sented. This procedure includes real sonic "line" effects and an interaction analysis for the 
mixing process between the two streams. The procedure is programed in FORTRAN IV and 
has operated successfully on IBM 7094, IBM 360, CDC 6600, and UNIVAC 1108. 


17. Key Words {Suggested by Author(s)) 

Propulsion 

Aerodynamics 


18. Distribution Statement 


Unclassified - unlimited 


19. Security Classif. (of this report) 
Unclassified 


20. Security Classif. {of this page) 

Unclassified 


21. No. of Pages 


Cat. 28 
I 22. Price 


* For sale by the National Technical Information Service, Springfield. Virginia 22151 







COMPUTER PROGRAM FOR CALCULATING THE FLOW FIELD 
OF SUPERSONIC EJECTOR NOZZLES 
by Bernhard H. Anderson 
Lewis Research Center 

SUMMARY 

An analytical procedure for computing the performance and flow-field characteris- 
tics of supersonic ejector nozzles is presented. This procedure includes real sonic 
"line" effects and an interaction analysis for the mixing process between the primary 
and secondary flows of the ejector nozzle. The procedure, which has been programmed 
in FORTRAN IV, is designated REJECT and has operated on IBM 7094, IBM 360, 

CDC 6600, and UNIVAC 1108. 


INTRODUCTION 

The potential of secondary flow to improve the performance of exhaust nozzles has 
received widespread attention. Numerous experimental as well as theoretical investi- 
gations have been conducted. The early efforts to analyze supersonic ejector nozzles 
were based on one-dimensional concepts (refs. 1 to 3). In these studies of ejector sys- 
tems, one-dimensional isentropic relations were applied to both the primary and sec- 
ondary flows, which were considered to coexist within a cylindrical shroud and allowed 
to have different average total pressures. Because such a treatment has limitations, in 
later analyses the primary flow was constructed by using the method of characteristics, 
while one-dimensional isentropic flow was assumed for the secondary stream (refs. 4 
to 6). In these analyses, the dissipative effects of the mixing process were not treated 
as an interaction problem, but rather superimposed on the inviscid jet boundary in the 
classical boundary- layer approach. The phenomenological description of this transport 
mechanism was based on a quasi- constant-pressure two-stream turbulent mixing pro- 
cess (ref. 5) obtained by an extension of analyses for mixing between a single stream 
and a quiescent fluid (ref. 7). In application, the effects of mixing were viewed as a 
simple change in the secondary weight flow ratio from that given by the inviscid solution. 



In general, this method yielded good agreement with data, provided the shroud (or 
shoulder) diameter ratio was small and the primary stream entrance Mach number was 
greater than 1. 0 so that the flow followed a Prandtl- Meyer relation for the expansion 
process around the primary nozzle lip. 

It became apparent that an interaction approach had to be used for the mixing pro- 
cess for many ejectors (ref. 8) because a correction of the inviscid solution underesti- 
mated the effects of the turbulent mixing process. A second and very pragmatic prob- 
lem also occurred when extensive calculations were made with these analyses. The 
inviscid analysis would not yield a choked solution in the stream for many ejector con- 
ditions of interest. However, it was realized (ref. 8) that if the second-order displace- 
ment effects were included in an interaction analysis, these solutions could be obtained. 
The assumption that the flow follows a Prandtl- Meyer expansion around the primary 
nozzle lip from a uniform sonic flow was very limiting because practical ejector sys- 
tems usually have choked conical primary nozzles. It was not until the solution of com- 
pressible flow through choked conical nozzles was accomplished (ref. 9) and incorporat- 
ed into an ejector nozzle analysis (refs. 10 and 11) that the influence of the sonic line 
assumptions could be resolved. The computer program reported herein is designated 
REJECT and includes both the choked conical nozzle analysis reported in reference 9 
and an interaction analysis for the mixing process between the primary and secondary 
flows within the ejector nozzle. 

The theoretical analysis for the solution of an ejector nozzle flow field of arbitrary 
geometry is presented in this report. A comparison of the theory for a large number of 
test cases is presented in references 10 and 11. The symbols used in the analysis are 
defined in appendix A. To facilitate the use of the computer program, a detailed de- 
scription of the input which is required to operate REJECT and an interpretation of the 
printed output are given in appendixes B and C. In addition, a sample output listing and 
the computer program listing are presented in appendixes D and E. 


ANALYSIS 

The flow in an ejector nozzle involves the mutual interaction between a high-energy, 
high-velocity primary stream and a low-energy, low-velocity secondary stream, as 
shown in figure 1. These two streams begin to interact at the primary nozzle lip. For 
the ejector operating in the supersonic flow regime, the secondary flow is effectively 
"sealed off" from ambient conditions. It is this nozzle operating condition that is con- 
sidered in the theoretical analysis presented in this report. 

The primary flow field is determined by the method of characteristics, starting 
from an initial datum line, called the sonic line. The viscous interaction between the 
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two streams occurs along the interface (dash-dot line in fig. 1) and results in a transfer 
of energy from the primary stream to the secondary stream. In the present analysis 
the two-stream mixing is computed on the basis of a quasi-constant-pressure mixing 
process; that is, the velocity profile is assumed to be developed from the local two 
streams through a constant- pressure turbulent mixing process. Two conditions were 
applied at each point along the jet boundary or interface: (1) the local static pressure 
must be equal for both streams at their boundary and (2) continuity between the two 
streams must be preserved. The later condition required that the amount of secondary 
flow entrained by the mixing process plus the unmixed flow be equal to the secondary 
flow supplied to the ejector. These conditions were used to determine the jet boundary 
and consequently the local flow conditions in the neighborhood of the shroud wall. Thus, 
the mixing process was treated as an interaction analysis rather than simply superim- 
posing the mixing region on the inviscid flow field at the minimum secondary flow area 
as had been done previously. 


Sonic Line Solutions 


Real sonic line . - The axisymmetric transonic flow analysis through conical nozzles 
presented in reference 9 forms the basis for the sonic line solution in program REJECT. 
To obtain the flow angle distribution in the throat region of the primary nozzle, the flow 
is assumed to be steady, irrotational, isentropic, and two dimensional. The motion of 
such a fluid can be described in terms of the stream function i// by the equation 



\b + 
Y xx 



lb + 

*xy 



( 1 ) 


where the subscripts refer to partial differentiation. Equation (1) is a nonlinear partial 
differential equation of second order. Within the transonic region, this equation is of 
the mixed type, elliptic for subsonic flow and hyperbolic for supersonic flow. Upon in- 
troducing the hodograph variables defined by 


q = 



( 2 ) 
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equation (1) becomes 


+ = 0 (4) 

3q\P 3q/ Pq\ ^^2 

Further simplification can be made by introducing the transformed velocity defined by 

dw = — (5) 

p o q 


Thus, equation (4) becomes 


+ k(m) H-Jk. - o (6) 

aw 2 ds 2 


where 


k(M) - 



(1 - M 2 ) 


(7) 


The introduction of the tangent gas approximation /c(M) = 1 greatly simplifies the 
solution of equation (6) because the hodograph relations reduce to the Cauchy-Riemann 
equations. Thus, the flow field may be solved by the method of complex variables. The 
incompressible and compressible flows are thus related by equation (5), which becomes 
upon integration 



( 8 ) 
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where q and M m represent the velocity and Mach number at the match state where 
this analysis is applied. Because the Cauchy- Riemann conditions are satisfied, the 
method of singularities can be used in such a way as to satisfy the boundary conditions 
of the present problem. The complex potential function of an arrangement of sources 
and sinks which satisfies the necessary boundary conditions is given by 


F(w - i3) = In 


cosh — (u> - i3 - coj - cosh 
a J 



cosh — (oj - i - u>.) - 1 
a J 


( 9 ) 


where Aw - oj- - u> a - The complex velocity can thus be found by differentiating equa- 
tion (9) 


— sinh — (a> - i3 - w-) — sinh — (u> - i3 - w-) 

dF a a l a 9L (io) 

d(td - i3) cogh Z ( w - ia - wj - cosh (— Aa>) cosh — (u> - i3 - co.) - 1 
a ] \ot / a 

Use of this solution limits configurations to sharp-edged conical nozzles. The hodo- 
graph solution can be transformed to the physical plane by introducing the complex vari- 
able z = x + iy. Thus, 

dz = — - — x — — — X d(w - is) - — — X — — X d(cd - is) (11) 

e co-i3 d(w - i3) 4 d(co - i3) 

where the bar over the last term indicates the complex conjugate. Thus, the location of 
any point (u>, 3) in the hodograph plane can be transferred to the point (x, y) in the physi- 
cal plane by the integration of equation (11). The numerical constants have been adjust- 
ed in equation (11) such that the location of the nozzle Up in the hodograph plane (w-, a) 
corresponds to the point (0, 1) in the physical plane. Of particular interest in this analy- 
sis is the distribution of flow angle within the throat region. These lines of constant 
flow angle are called isoclines. To obtain the location of these isoclines, equation (11) 
is numerically integrated from u> a to uk at selected values of for flow angles be- 
tween 0 and a . 

The sonic line is determined by finding the points of intersection of the established 
isocUnes with the Mach lines originating at the nozzle lip, as shown in figure 2. To 
determine these Mach Unes, the method of characteristics is introduced. Thus, the 
primary flow field is constructed by using the set of equations 
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( 12 ) 


^ = tan(i9 ± ju) 
dx 


dp ±da + j_sin^sin_Md Z = 0 (13) 

pq 2 tan p sin ^ ± ^ ? 

dS — 0 on — — tan 3 (14) 

dx 

where p is the local Mach angle. The static pressure p and flow angle 3 were cho- 
sen as the basic variables because these quantities must be matched along the primary 
jet boundary, or slipstream. At the nozzle lip, the expansion is a centered- wave type 
and thus satisfies the Prandtl-Meyer function. The flow at the nozzle lip turns through 
an angle which is determined by the back pressure, or the pressure in the vicinity of the 
primary nozzle. The expansion is divided into a finite number of discrete steps. The 
first point on the sonic line is the point of intersection of the first isocline (fig. 2) and 
the Mach line from the nozzle lip which yields Mach 1. 0 at the isocline flow angle. This 
intersection is determined through an iterative process which involves satisfying the 
known properties of pressure and flow angle along the sonic line and the characteristic 
equations. Subsequent points along the sonic line are constructed in the same manner 
as the characteristic net is developed. Thus, the sonic line is constructed as the pri- 
mary flow field is developed. 

While the analysis presented is for the choked flow through a wedge nozzle, the 
solution of flow through conical nozzles is obtained by using the simplifying assumption 
that the isoclines for axisymmetric flow are the same as those for the corresponding 
two-dimensional flow. Once the sonic line is constructed, the inviscid discharge and 
velocity coefficients can be obtained from the expressions 


C D = f { cos 3y dy - sin 3y dx) 


(15) 




f cos 3(cos 3y dy - sin dy dx) 


(16) 


integrated along the sonic line. 

Conical sonic line . - The present analysis constructs a primary inlet flow sonic line 
for an ejector with a centerbody by assuming that flow within the throat region satisfies 
the Taylor -Macc oil flow represented by the equation 
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(17) 


vv uu = 1 + v u “ 


(a + vv u )' 


y + 1 


1 (u 2 + v 2 ) 


where the subscripts refer to partial differentiation. Equation (17) is integrated from 
the centerbody surface to the primary nozzle lip. The boundary conditions on the plug 
surface are given by 


u = Q m cos 3 


v = q m sin s 




*„- S 

V 


(18) 


where q m is the velocity of the match condition, which is usually chosen to be 1. 003, 
and S is the half- angle of the plug surface in the vicinity of the primary nozzle exit. 

The sonic line would therefore be represented as a Mach wave passing through the pri- 
mary nozzle lip and intersecting the ejector centerbody. The conditions along that start- 
ing line are obtained from a solution of equation (17). Construction of the sonic line by 
using the Taylor- Maccoll equation provides a flow that will not compress to subsonic 
conditions on the plug surface downstream of the throat. It also satisfies the condition 
that the velocity at the plug surface be parallel to that surface, but the condition of a 
specified primary lip angle cannot be satisfied. 

Plane sonic line . - The plane sonic line starting datum is constructed by using equa- 
tions (12) to (14) at the match Mach number M m > Along this datum line, the flow angle 
distribution does not vary. Thus, the only physically real case it can represent is that 
of flow discharging axially from a nozzle with a zero lip angle. 


Primary Flow Field Solution 

Because the method of characteristics represents the solution of a hyperbolic dif- 
ferential equation, downstream boundary conditions are not required. The solution 
marches downstream using only the known upstream values and boundary conditions. 
Disturbances in the flow field are not propagated upstream and do not affect regions of 
the flow which have already been calculated. The actual computational procedure varies 
somewhat depending on whether the new point to be calculated is an interior or boundary 
point. However, the set of equations (12) to (14) must be satisfied. The numerical 
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technique used in constructing the primary flow field was structured as a marching 
technique. Only the conditions on two C+ characteristics are saved (fig. 2), and the 
computations always proceed in the downstream direction. This technique was chosen 
over a reference plane method (ref. 12) because the flow under many ejector operating 
conditions goes subsonic in the region near the centerline of the nozzle exit. Therefore, 
the complete pressure distribution on the shroud surface can be obtained without dealing 
with a subsonic region. 

In the method- of- characteristics solution, a shock wave is formed when two or 
more members of the same characteristic family intersect. This phenomenon always 
occurs in an ejector exhaust nozzle at some point in the flow field as a direct result of 
the recompression process which follows the overexpansion of the flow at the primary 
nozzle lip. In this computer program, when two or more characteristics of the same 
family do intersect, the conditions are set equal to the average conditions at the inter- 
section point. These average conditions are projected downstream to the next solution 
plane and thus form a weak shock wave. No attempt is made to account for entropy 
losses under these conditions. 

When the static pressure at the free boundary is constant, the Mach number at this 
boundary is only a function of pressure. The numerical procedure for solving the free 
boundary under this condition for the method of characteristics is well established and 
will not be discussed. For flow in ejector nozzles the primary jet boundary is not at 
constant pressure. Thus, the conditions along this interface depend on the ejector mass 
flow ratio, the total pressure ratio, the primary nozzle geometry, the shroud geometry, 
and the mixing process along the jet boundary. A detailed discussion of this dependence 
appears in the section Secondary Flow Field Solutions. It suffices to say that once the 
pressure on the jet boundary is determined, the iteration for the location of the primary 
jet boundary proceeds as if it were at constant pressure. 

Centerbody boundary layer . - The iteraction between the primary flow field and the 
boundary layer along the centerbody surface is taken into account in program REJECT 
by the classical method of patching the boundary layer and inviscid flow field solutions. 
Both the inviscid primary field and the boundary layer are computed simultaneously so 
that the "marching" procedure is maintained. The boundary layer parameters are cal- 
culated by the method presented in reference 13. This method was chosen because it 
provides working formulas which are simple to program and which reflect boundary 
layer behavior to a remarkably good degree, provided the Reynolds number is large and 
the flow remains attached. The technique for including the boundary layer in the char- 
acteristic solution proceeds in the same way as the standard boundary solution except 
the physical surface is displaced an amount 5* and the surface tangent is increased an 
amount dfi*/dx. With the method presented in reference 13, the boundary layer proper- 
ties are computed on the basis of an equivalent length defined by 
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(19) 


where 


X 


= (g/) 1 ^(C /) dx 



( 20 ) 


and /3 takes on values of either 1. 20 or 1. 25 depending on the Reynolds number. The 
local Reynolds number R^ based on the equivalent length defined by equation (19) is 
computed by using the stagnation pressure and temperature. With this local Reynolds 
number R^, the displacement thickness 5* and momentum thickness 0 are computed 
for R x of order 10® by using the expressions 


5* = 0. 046 x (l. 0 + 0. 8M 2 ) 0 * ^R^ 0, 20 

(21) 


0 = 0. 036 x (l. 0 + 0. 10M 2 ) °" V 20 

(22) 

and for 

n 

R x of order 10 by using the expressions 



5* - 0. 028 x (l. 0 + 0. 8M 2 ) 0 * ^R^. 0, 167 

(23) 


0 = 0. 022 x (l. 0 + 0. 10M 2 ) °* V 167 

(24) 


These equations are valid for y = 1.4. 

Since the static pressure is considered constant through the boundary layer, the 
pressure that is computed a distance 6* from the surface is transferred to the surface. 
This pressure forms the basis of the iteration loop so that the calculations can be cycled 
in the standard manner for conditions on the surface. 

Reynolds number effect . - It is well known that Reynolds number affects the meas- 
ured flow coefficient of choked nozzles. If the loss in mass flow is considered as a 
blockage effect caused by boundary layer displacement, the discharge and velocity coef- 
ficients associated with only blockage can be approximated by the following expressions: 
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4 5* 


(25) 


c D = i.o- 


D cos a 

r 


C 


v 


- 1.0 - 



(26) 


For a 1/7-power velocity distribution law the boundary layer displacement thickness 
4/5 

varies as x 7 according to the expression obtained from reference 14. When the pri- 
mary nozzle exit diameter is identified with the characteristic length, equations (25) 
and (26) become 


C D = 1.0 - KjRp 0 - 2 (27) 

C y = 1.0 - K 2 Rp 0 ' 2 (28) 

where 

K 0185^ (29) 

cos a 

K 2 = 0. 144 (30) 

for a 1/7-power velocity profile. The correlations expressed by equations (27) and (28) 

are compared with unpublished data obtained on a ASME nozzle in figure 3. The nozzle 

thrust coefficient is presented as the ratio of actual thrust to ideal thrust of a choked 

nozzle based on the measured weight flow. In general, agreement appears to be very 

7 

good for the Reynolds range 1x10 to 1x10. Equations (27) and (28) can be combined 
with equations (15) and (16) to form a more general expression for the flow and velocity 
coefficients. 


c d =(i.o- Ki Rd 0 - 2 )/< cos dy dy - sin dy dx) 

= ( 1 -°- k 2 r D°- 2 )/- f 


cos d(cos Sy dy - sin dy dx) 


(31) 

(32) 


where C D is the inviscid flow coefficient represented by equation (15) and the integra- 
tion is performed along the sonic line. Equations (31) and (32) were used to compute the 
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flow coefficients for the choked conical nozzles with primary nozzle lip angles a of 
8° and 27° that were presented in reference 11. Agreement between calculations and 
measurements for both cases was very good. Thus, REJECT computes the performance 
of the primary nozzle acting in conjunction with the ejector. 


Secondary Flow Field Solutions 

The purpose of program REJECT is to establish, for a given geometry, the per- 
formance characteristics of the ejector system when the secondary flow becomes inde- 
pendent of ambient conditions. The flow regimes occurring under this condition can be 
categorized on the basis of the predominant flow mechanisms. 

When the amount of secondary flow supplied to the ejector nozzle is small, the pri- 
mary flow plumes out and impinges on the shroud wall, as shown in figure 4(a). This 
causes an oblique shock to form which effectively "seals off" the secondary flow from 
ambient conditions. The secondary flow is "dragged" through the oblique- shock pres- 
sure rise by its mixing action with the higher velocity primary jet flow. Equilibrium 
conditions are thus established in the "low" secondary mass flow regime when the 
amount of secondary flow supplied to the ejector is equal to the flow which is dragged 
past the recompression zone associated with the oblique shock. For the ejector operating 
in the "high" secondary mass flow regime shown in figure 4(b), the interaction between 
the two streams is such that the secondary flow accelerates to critical conditions some- 
where downstream of the primary nozzle. The viscous interaction between the two 
streams occurs along their interface. As a result, energy (shear work) is transferred 
from the primary to the secondary stream and the pumping characteristics are modi- 
fied by the displacement effects of the mixing region. 

Interaction between inviscid flow fields . - The primary stream internal flow field 
is analyzed by the method of characteristics for irrotational axisymmetric flow. The 
general conditions that must be satisfied along the jet boundary between the primary and 
secondary streams are (1) the local static pressure must be equal for both streams at 
their interface and (2) continuity between the two streams must be preserved. For flows 
in which the mixing is neglected, the later condition requires that 

(33) 

W P f( V A P p P 


11 



where 


and 


f (r) = 



+ ^-( 7 + 1 ) 72 ( 7 - 1 ) 



(34) 


(35) 


Thus, for a given secondary total- pressure ratio and corrected weight flow ratio, the 
parameter A*/A*, defined by equation (33), relates the conditions on both sides of the 

s> p 

jet boundary. Consequently, the Mach number in the secondary passage can be deter- 
mined from the expression 


A s A A/A* 

_JL = _!> x-P — £ (36) 

A s A p A |/ A p 

where A g is the local secondary flow area, A p is the primary nozzle exit area, 

A /A* is a function of the primary nozzle exit Mach number, and A*/A* is related to 
P P s p 

the ejector operating conditions through equation (33). The local secondary flow condi- 
tions can thus be established from equation (36), and this will determine the jet boundary 
Relations within mixing region . - The quasi- constant-pressure two- stream mixing 
processes presented in references 5 and 7 was used as the mixing model in program 
REJECT. In most cases of ejector operation, the characteristic Reynolds number is 
sufficiently large so that the jet mixing process occurring within the flow field is likely 
to be turbulent. The assumption of quasi- constant- pressure two-stream mixing means 
that the velocity profile, at the flow station under consideration, is considered to be de- 
veloped from the local two streams through a constant- pressure turbulent jet mixing 
process. The velocity profile within such a region will be given by 

<P = — = - (1 + <P Q ) + - (! - <p s )erf(Tj) (37) 

u 2 s 2 s 

p 


where 


r s 


u 


p 


(38) 
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(39) 


erf(rj) = 

Vjt 



d/3 


t,=2Z (40) 

x 

and a is the similarity parameter for the homogeneous coordinate system within the jet 
mixing region. The jet boundary separating the two streams is located at rjj within the 
mixing region so that 


ijfy - i 2 y 

- — f 

J 1 - <P a 


where Ijfa) and I 2 (rj) represent the integrals 


^(rj) = 




•V 


<P a V 


s's 


Is.cV 

T P^s 
p 


i 1 - 

* - Cp v 2 


dr/ 


I 2 (r?) = 


(* - Cp)^ 

2 2 

IT - C > • 



x- c y 


where the Crocco number C is defined by the equation 

r 


and 


C 


2 

P 


2 

(y - 1) + 



(41) 


(42) 


(43) 


(44) 


(45) 
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where A is the stagnation temperature ratio throughout the mixing region for fluids 
with a Prandtl number of 1. The velocity and stagnation temperature profiles described 
are defined within an intrinsic coordinate system which is located by a shift of v with 
respect to the reference system and which is given by 

oy 1 

"n = T 2 = Ip - 7— [ r 2 V - VlV] («> 

n ^s 


The effects of the entrainment of the secondary flow by the primary stream are in- 
terpreted in the boundary space as equivalent to a displacement of the secondary stream 
boundary 5*. Thus, it can be shown that 






(47) 


The numerical value of the similarity parameter a has been well established to be 12 
for the mixing of an incompressible fluid and later extended to 12 + 2. 758 M for the 
compressible flow regime. To extend the concept of a similarity parameter to the two- 
stream mixing problem, a rationale was proposed in reference 7 which resulted in the 
following expressions: 


II 



where 


fn 

CT i 


1+ v s 

1 - CO 

^S 


and the equivalent one-stream Crocco number C is given by the relation 



(48) 


(49) 


( 50 ) 
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By using equation (47), the equivalent one-stream similarity parameter Oj can be de- 
fined in terms of the Crocco number C by the relation 



Mixing process in high secondary flow regime . - The conservation of mass within 
the ejector nozzle flow field (fig. 4) would require that at each streamwise station, the 
following expression would be valid: 


W s 




(52) 


where W D /W n is the secondary corrected weight flow ratio supplied to the ejector, 
s p 

W„ ,/W^ is the secondary weight flow ratio which is unaffected by the mixing process, 

Sj i p 

and AW /W represents the amount of flow entrained by the mixing process to the point 

s P 

of consideration. The ratio AW /W can be expressed by the following relation: 

s p 


AWg 

w 

p 




(53) 


Since the secondary corrected weight flow supplied to the ejector remains constant, the 

term W_ ./W_ can be computed from equation (52). Since the secondary total- pressure 
® y 1 P 

ratio Pg/Pp remains constant, the local secondary critical area ratio is thus affected 
by jet mixing through the expression 


\ ! %1 p s\ w p 



(54) 


The parameter A* j/A* 


defined by equation (54) is evaluated at each point along the jet 
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boundary, so that conservation of mass is always preserved. 

The local secondary flow conditions are determined from the expression 


A i,i A P a ;K ip A w p w p/_ 


( 55 ) 


which is used in the iterative procedure to define the local flow conditions along the jet 
boundary. This procedure takes into account the effects of mixing on the local second- 
ary flow Mach number. The local secondary flow area is obtained from the expression 

A s,i' A s' aA s < 56 > 

where A is the secondary flow area defined by the local jet boundary and AA_ is the 

S S 

area associated with the mixing region. This term can be obtained from the relation 


AA g = A Xx n y n (-a n x^ 


Equation (57) represents the change in the secondary flow area caused by the effects 

of entrainment of the secondary stream by the primary stream (fig. 4) as interpreted in 

the boundary layer sense by the displacement thickness -6* . 

The isolation condition for the ejector operating in the high secondary flow regime 

requires that the critical area ratio defined by equation (55) be greater than, but in the 

neighborhood of, 1. 0. This is accomplished in REJECT through an iterative process by 

fixing the corrected secondary weight flow ratio W_/W and varying the secondary total 

s p 

pressure ratio P g /Pp until this condition is satisfied. 

Impingement solution . - As previously described, equilibrium conditions are estab- 
lished in the low secondary weight flow regime when the amount of flow that is dragged 
past the recompression shock (fig. 4(a)) is equal to the amount of secondary flow sup- 
plied to the ejector system. The amount of secondary flow for this case is given by the 
expression 
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where x w and y w give the location of the primary jet impingement on the shroud wall 
and (A/A* ) w is the area ratio associated with the primary flow upstream of the recom- 
pression shock. Application of the escape criterion 



(59) 


would allow an identification of a discriminating streamline 7 ^ within the jet mixing re- 
gion which distinguishes that part of the flow which is "turned" back and that part which 
has sufficient energy to traverse the static-pressure rise ^/Pj) associated with the 
impingement shock (fig. 4(a)). w 

Shroud boundary layer . - The boundary layer along the shroud wall is treated in a 
manner similar to that used for the boundary layer along the centerbody surface, which 
was previously discussed. The marching procedure is preserved, and equations (19) 
to (29) provide the working formulas for the computation of the shroud boundary layer. 

Performance parameters . - The two most important parameters which describe the 
thrust performance of ejector systems are the nozzle efficiency 


and the gross thrust coefficient 


Pe/ A e 


c T - 


P P A P 

p pW/ 

F. 

F. 

IP 

+ 1S 

P A 

P A 

P P 

P P 

F 

,fe/V\ 

P 

P~ \A„ J 

P P 

P\ P/ 


F. 

IP 

PA 
P P 


(60) 


(61) 


where F. /(P A ) and F. / (PA) are the ideal thrust of the primary and secondary 

A Jr r r Jr 

streams based on the measured weight flows and the nozzle pressure ratio P/p . The 

r ^ 

ideal thrust of the primary and secondary streams can be computed from the relations 


= C D x f id 

Vp 



(62) 
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F is p s a* a; / p e 

— x — f x — ^ fjd r s , — 

Vp p p a ; a p \ p s . 


ijr, E ) = y 


2 j/(y- i)^ y+1 y/2 J _^p|r-D/ 2 


The total stream or vacuum thrust of the ejector system is defined by the following ex- 


F F 0 F . F, 

P | s | sh [ b_ 


where 
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OUTLINE OF GENERAL SOLUTION 


The actual computation of the pumping characteristics, whether in the low or high 
secondary flow regime, requires an iterative procedure which involves the calculation 
of the entire flow field to some point where the isolation condition can be verified. This 
overall iteration is accomplished by holding the secondary corrected weight flow ratio 
Wg/Wp constant and choosing different values of secondary total- pres sure ratio P s /P p . 
The set of equations discussed were programmed in a downstream forward- marching 
procedure starting from the sonic line solution, which depends on both W g /Wp and 
p g /p . Once initiated, the procedure is advanced to a new station, where the previous 
station's solution is used as input for the new solution. At this point, the secondary 
flow field is examined and a decision is made whether to continue in the downstream 
direction or to seek a new value of total-pressure ratio P g /P p an d repeat the cycle. 
When a solution has been found, the entire ejector flow field is computed, along with the 
standard ejector performance parameters. Because of the many iterations that can oc- 
cur in arriving at the pumping characteristics, program REJECT has been structured 
to avoid excessive iterations within each flow field calculation, although such computa- 
tions as the sonic line, two- stream mixing interaction and boundary layer effects are 
repeated for each iteration. One complete flow field computation requires about 40 sec- 
onds of central processing unit time on the CDC 6600 computer. 


CONCLUDING REMARKS 

A theoretical analysis for the solution of flow within ejector nozzles of arbitrary 
geometry is presented by using standard numerical techniques. A large number of cases 
have been calculated with this analysis and compared with appropriate experimental data 
(refs. 10 and 11). The procedure presented in this report provides an accurate and 
economical method of designing a wide variety of ejector nozzles over the range of flow 
conditions of interest. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, November 28, 1973, 

501-24. 
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APPENDIX A 


SYMBOLS 


A 

area 

a p 

primary nozzle exit area 

A s 

local secondary flow area 

a 

speed of sound 

C 

Crocco number 

C D 

discharge coefficient 

C f 

skin friction coefficient 

C F 

gross thrust coefficient 

*g 


C T 

nozzle efficiency 

C v 

velocity coefficient 

°P 

primary nozzle exit diameter 

F 

stream thrust 

F(w - ix9) 

complex stream function, eq. (9) 

F f 

integrated skin friction force 

F iP 

ideal primary thrust based on actual weight flow 

F is 

ideal secondary thrust based on actual weight flow 

F P 

primary stream thrust 

F s 

secondary stream thrust 

f(y) 

parameter defined by eq. (34) 

f id (y,p/P) 

parameter defined by eq. (64) 

G 

parameter defined by eq. (20) 

I^T?) 

parameter defined by eq. (42) 

l 2 bl) 

parameter defined by eq. (43) 

j 

dimensionality 

K 1 

constant defined by eq. (29) 

K 2 

constant defined by eq. (30) 
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M Mach number 

P total pressure 

p static pressure 

q velocity ratioed to critical speed 

R d Reynolds number based on primary nozzle diameter 

R x Reynolds number based on equivalent length 

S entropy 

surface area of body 

S u surface area of shroud 

sh 

T total temperature 

u axial component of velocity ratioed to critical speed 
v radial component of velocity ratioed to critical speed 
W corrected weight flow, w-y^T 

w weight flow 

X equivalent length, eq. (19) 

x axial distance ratioed to primary nozzle radius 
y radial distance ratioed to primary nozzle radius 

z complex coordinate, x + iy 

a primary nozzle lip angle 

/ 3 constant, 1.20 or 1.25 

y ratio of specific heats 

6* displacement thickness 

tj parameter defined by eq. (40) 

9 momentum thickness 

S flow angle 

/c(M) parameter defined by eq. (7) 

A temperature ratio, eq. (45) 

p Mach angle 

p density 

a similarity parameter 
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<p velocity ratio 

4/ stream function 

oj transformed velocity, eq. (8) 

Subscripts: 

a approach conditions 

b body conditions 

d discriminating streamline 

e exit conditions 

i inviscid 

id ideal conditions 

j jet boundary 

m match conditions 

n local conditions 

p primary conditions 

s secondary flow conditions 

sh shroud conditions 

w wall conditions 

x conditions upstream of shock 

z conditions downstream of shock 

0 reference conditions 

1 jet mixing of one stream with a quiescent stream 

II two- stream mixing 

Superscript: 

* critical conditions 
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APPENDIX B 


DESCRIPTION OF INPUT 

This section describes the loading of input data cards for running the computer pro- 
gram. Care should be taken in loading because the input changes depending on the op- 
tions chosen. Multiple cases can be run simply by stacking the cases in order. See 
figures 5 and 6 for further explanation of geometric input quantities. 


Card 1 - Title Card 


Name 

Column 

Format 

Comment 

TITLE 

1-72 

18A4 

Any alphanumeric characteristics 



Card 2 - 

Data Variables 

Name 

Column 

Format 

Comment 

WTFL 

1-12 

6E12.0 

Secondary corrected weight flow ratio 

HSHP 

13-24 


Initial estimate of secondary total-pressure 
ratio 

TOS 

25-36 


Secondary stream total temperature, K (°R) 

GAMS 

37-48 


Ratio of specific heats for secondary stream 

TOP 

49-60 


Primary stream total temperature, K (°R) 

GAMP 

61-72 


Ratio of specific heats for primary stream 



Card 3 - 

Data Variables 

Name 

Column 

Format 

Comment 

AMR 

1-12 

6E12.0 

Match Mach number for starting the pri- 
mary flow field calculation: set AMR = 
1. 003 for plug nozzle configurations; 
otherwise, set AMR = 1. 001 
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Name 


Column 


Format 


Comment 


ANGR 13-24 

RATIO 25-36 

XPRIM 37-48 

DPRIM 49-60 

DSHD 61-72 


Primary nozzle conical lip angle, deg: set 
ANGR = 0 for plane sonic line solution; 
otherwise, ANGR < 0 

Primary nozzle radius ratio, fig. 5 

Location of primary nozzle exit relative to 
coordinate system of shroud contour 
points, cm (in. ) 

Diameter of primary nozzle exit, cm (in. ) 

Set NSHD = 1 to calculate performance of 
cylindrical shroud ejector with diameter 
DSHD, cm (in. ) 


Card 4 - Data Variables 


Name Column Format 


Comment 


DBDY 

1-12 

CONA 

13-24 

END 

25-36 

REYPRM 

37-48 

DELSHD(l) 

49-60 

FDIM 

61-72 


6E12. 0 Set CONA > 0 to calculate conical plug 

nozzle geometry with half- cone angle of 
CONA and diameter of DBDY in plane of 
primary nozzle exit, cm (in. ) 

Half-angle of conical plug nozzle, deg 

Location of nozzle exit relative to coordinate 
system of shroud contour points, cm (in. ) 

Reynolds number based on primary nozzle 
exit diameter 

Initial boundary layer displacement thick- 
ness ratioed to primary nozzle exit radius, 

«*/Rp 

Set FDIM = 0. 0 to calculate two-dimensional 
flow; set FDIM = 1. 0 to calculate axisym- 
metric flow 
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Card 5 - Diagram Constants and Options 


Name 

Column 

Format 

Comment 

K1 

1-12 

6E12.0 

Constant controlling initial expansion fan: 
set K1 = 0. 0005 

K2 

13-24 


Constant controlling initial expansion fan: 
set K2 = 0. 1000 

K3 

25-36 


Constant controlling initial expansion fan: 
set K3 = 1. 000 

K4 

37-48 


Constant controlling insertion of additional 
field points: set K4 = 0. 0500 

SOLVE 

49-60 


Set SOLVE = 0. 0 to calculate nonmixing 
solution; set SOLVE = 1. 0 to calculate 
mixing solution recommended for 
WTFL > 0. 04; set SOLVE = 2. 0 to cal- 
culate impingement solution for 
0 < WTFL < 0. 04 

PRINT 

61-72 

Set PRINT = 0 for no printout of primary 
flow field; set PRINT = 1.0 for printout 
of primary flow field for final solution; 
set PRINT =2.0 for printout primary 
flow field for every iteration 

Card 6 - Program Constants and Options 

Name 

Column 

Format 

Comment 

NDATA 

1-6 

816 

Number of field points along sonic line: for 
ANGR < 0 set NDATA = 21; for ANGR = 0 
set NDATA = 8 

NSHD 

7-12 


Number of shroud contour points read as 
input data 

NBDY 

13-18 


Number of centerbody contour points read 
as input data 

NITER 

19-24 


Number of iterations previously completed 
for restart option 
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Name 

Column 

Format 

Comment 

IPLOT 1 

25-30 


Parameter which controls plotting routines 

IPNCH 

31-36 


Set IPNCH = 0 

IPRNT 

37-42 


Set IPRNT = 0 

ICOMP 

43-48 


Set ICOMP = 0 



Card 7 - 

NITER > 0 

Name 

Column 

Format 

Comment 

PTS(I) 

1-12 

6E12.0 

Secondary total- pres sure ratio (HSHP) at 
the I** 1 iteration, where 1 = 1, NITER 

AREA(I) 

13-24 


Minimum computed secondary flow area 

1L 

ratio A g /A* at the I U1 iteration, for 
SOLVE = 0. 0, 1.0, where 1 = 1, NITER 

WLEAK(I) 

25-36 


Computed leakage secondary weight flow 
ratio at the I*'* 1 iteration for SOLVE =2.0 


where 1 = 1, NITER 

A restart option is provided in REJECT to iterate for the solution between the values 
read on card 7. The values of PTS(I), AREA(I), and WLEAK(I) are printed out after 
each iteration for the pumping characteristics. 


Card 8+ - Shroud Geometry (for NSHD > 1) 


Name 

Column 

Format 

Comment 

XSHD(I) 


6E12.0 

Axial location of shroud coordinate point, 
cm (in. ) 

YSHD(I) 



Radial location of shroud coordinate point, 
where 1 = 1, NSHD, cm (in). 


*The plotting routines have been deleted from the computer FORTRAN listings pub- 

lished in this report. 
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Card 9+ - Plug Geometry (for NBDY > 0) 


Name 

Column 

Format 

Comment 

XBDY(I) 


6E12.0 

Axial location of plug coordinate point, cm 



(in. ) 

YBDY(I) 



Radial location of plug coordinate point, 


where 1 = 1, NSHD, cm (in. ) 
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APPENDIX C 


DESCRIPTION OF OUTPUT 

A sample output listing is presented in appendix D for the solution of the flow in a 
convergent-divergent conical flap ejector nozzle operating at a secondary weight flow 
ratio of 0. 10. A detailed comparison between the calculated and measured performance 
of this ejector is presented in reference 11. The output was obtained by using the print 
option which gives the minimum amount of output (PRINT = 0. 0) because a complete 
output would be both lengthy and repetitious. 

The output presented on the title page summarizes the important input variables and 
is self-explanatory. The second and third pages of the output listing present a table of 
the dimensionless shroud coordinate points relative to the primary nozzle exit station, 
along with the surface tangent and the surface angle. These variables are labeled as 
follows. XSHD(I), YSHD(I), DYSDX(I), ANGLE (I). Since the calculations are always 
performed in a coordinate system relative to the primary nozzle exit (i.e. , XSHD(I) = 

0. 0 always represents this station), the spacing ratio can easily be changed by varying 
XPRIM in the input data. The fourth page summarizes the condition calculated along the 
jet boundary when the ejector is operating at the listed secondary corrected weight flow 
ratio (WTFL) and secondary total pressure ratio (PTS/PTP). The parameters present- 
ed on this page of the output are defined as follows: 

XSLP axial position 

YSLP radial location of jet boundary 

AMP primary stream Mach number 

THETA flow angle of jet boundary 

P/PTP ratio of static to primary total pressure 

AMS secondary stream Mach number 

P/PTS ratio of static to secondary total pressure 

AS/AS* ratio of secondary flow area to secondary critical area 

In using the restart option in REJECT, the values of PTS(I), AREA (I), and 
NLEAK(I) which are read in as input data correspond to the total- pressure ratio 
PTS/PTP, minimum secondary area ratio AS/AS* , and leakage weight flow ratio 
WLEAK(I) which are printed on this page of the output. The fifth page of the output list- 
ing presents the results of the boundary layer calculation performed in REJECT when 
the ejector is operating at the listed secondary weight flow ratio (WTFL), secondary 
total-pressure ratio (PTS/PTP), primary nozzle Reynolds number (REYPRM), and 
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corresponding secondary Reynolds number (REYSEC). The boundary layer calculations 
along the shroud wall are based on the secondary flow conditions. 

The displacement thickness (DELSHD) and momentum thickness (THETAS) are 
normalized with respect to the primary nozzle exit radius, while the skin friction coef- 
ficient (CFSHD) is based on secondary dynamic pressure. 

The sixth page of the output listing presents the sonic line solution computed in 
REJECT, while the seventh page summarizes the important performance parameters. 
The eighth page of the output listing presents the relation between the nozzle pressure 
ratio (PTP/PO) and the following nozzle parameters: 


F GROSS 

gross stream thrust, (F - P e A e )/0P p A p) 

FIP 

ideal thrust of primary nozzle 

FIS 

ideal thrust of secondary stream 

CVP 

gross thrust coefficient 

CV 

nozzle efficiency 
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APPENDIX D 


SAMPLE OUTPUT LISTING 


TIbH EJECTOR NOZZLE* OSHD/OPRIM = 1.22d* LSHD/jPRIM = 0.220*»*»* 
PRIMARY NOZZLE EXIT DIAMETER* UPRIM = 2.00000 

pr i m ar y nozzle Exit mach no.* amp = 1.00100 

PRIMARY NOZZLE LIP ANGLE* aNGK = -16.00000 

PKiMARY NOZZLE RADIUS RATIO* YRATIO = 1.40000 

LOCATION UP PRIMARY NOZZLE* XPRIM = .96860 

LJLCTO* LENGTH MEASURED Fkum PRIMARY NOZZLE * END = 0.19692 

PRIMARY NOZZLE Kt Y NOLOS NUMbER* REYPKM = 4.000E+06 

TOTAL TEMPEkaIURE OF SECONDARY FLOW* TOS = 5b0.000 

ratio of specific heats for secondary flow* gams = i.aoooo 

TOTAL TEMPERATURE OF PkImakY FLOW* TOP = SbO.OOO 

RATIO OF SPECIFIC HEATS F UK PRIMARY FLOW* GAMP = 1.40000 

FLOW in EJECTOR IS AXISYM METRIC* FOIM = 1.0 

NOMHEK OF POINTS SPECIFINb OHROUD CONTOUR* NSHO = db 

NUMHLR OF POINTS bPECIFING PLUG CONTOUR* NHUY = 0 

NUMbER OF POINTS SPEC IF I NG eNTERENCE CONUITIONS* NDATa = 21 
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APPENDIX E 


COMPUTER PROGRAM 


0 G 0 0 03 
C0000 3 

C000U J 
000003 

n r. o n o 3 

G G 0003 
000003 
000003 


000003 

030003 


C 0 0 0 U3 
C000U3 

000003 

000003 


G00003 
C 0 0 0 23 
G 00 0 37 
C C 0 066 


C 000 72 
30 J104 
000107 
CC 01 1 1 
0 G 0 1 1 1 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


ppogpam caucp ( i output input «TAPE b=uur put* TAP t7=uuTPUT j 
fjectok nozzle compute* program 


INPUT P An AMt TE PS 

i«TFL = PATIO OF SECONDARY TO PRIMARY CORRECTED WEIGHT FLOw 

HSHP = PATIO OF SECONDARY TO PPIMpPY TOTAL PRESSURE 

TOb = TOTAL TFMPPPaTUPE of SECONDARY FLOW 

GAMS = PATIO OF CP/CV Or sECuNUAp Y FLOW 

TOP - TOTAL T E M P p P A T U p E OK PrImaRy FLOw 

gamp = patio of cp/cv of primary flow 

AMP = INITIAL PW INAPT MACH NUMdt* 

AiMGP = ANGLE OF PNlMAPT LIP (DEGREES) 

YPATIO - PRIMARY NOZZLE RADIUS PATIO 
XPPIM = PPIMAPY FLOW STATION 
OPPIM = DIAMETER OF PR I MAP Y 
DSHD = DIAMETER OF SHPOUO 

OHDY = OIAmETFp of rtOuY AT PpIMApY Flow STATIuN 
CONA = CONE CFjMTEPbOOT ANGLE (DEGREES) 

END = EJECTOP LENGTH 

COMMAND PAPAMETlPS 


SET 

FOIM 

SET 

FDIM 

SET 

solve 

SET 

solve 

SET 

solve 

set 

PPINT 

SET 

PRINT 

SET 

PRINT 

SET 

iPLor 

set 

I PLOT 

set 

iplot 


0*0 FOP TWO DIMENSIONAL FLOW 

1.0 FOP ax [symmetric flow 
0.0 FUK NON-MIXInG solution 

1.0 FOP MIXING SOLUTION 

2.0 FOP IMPINGEMENT SOLUTIUN 

O.G FOP NO PPINT-OUT OF PpIMAPY FLOW FIELD 

1.0 F Op PpEnT-UUT OF FINAL PPIMAPY FLOW FIELO 

2.0 F Up PPInT-OUT OF EVERY PPIMAPY FLOW FIELD 

0 FOk NO CALCOMP PLOT 

1 FOP CALCOMP PLOT UN EVERY SOLUTION 

2 FOp CALCOMP PLOT ON FINAL SOLUTION 


1 


1 

2 

3 


1 

2 


1 


COMMON X(2*100)*Y(2*iOO)*P(2*lOO)*T<2,iOO) 

COMMON XSLPI 100) , YSLP ( 100 ) *AMP( iOU) * ThETA < 100 > *PhP( 100) * AMS ( 100) * 
Pms(ICjO) * ASASS ( I OU ) *DaSux<100) ♦ i slp 
COMMON XIS(21*26) *YIS(21*2b) * W ( 2 1 ) * T AU < 2 to ) * NSON IC*NANGLE 
COMMON X SONIC (26 ) . YSONl C ( 2b) . P SONIC ( 26) * T SONIC (26) * I SONIC 
r OMMON xCONF (100) « YCO'^t ( 1 •”)(> > .PCONK ( I uo ) , TCONt ( i 00 ) * I CONE 
COMMON XSHD UuO) * YSHU < i 00 ) * DYSUX ( 1 00 ) * NSHi) 

COMMON XHDY ( 1 0 0 ) * YBU Y ( 1 UU > .Dr BOX < 1 00 ) * NBUY 

COMMON wTFL*HSHP,TOS* TOP* GAMS* GAMP* F UNG* AMR*AN0R* APPEF *ASSAP5* 
XPPIM* YPPIM* APPIM *DPRIM*CFL*CVL * CONA* UBO Y , OShO * END * 

PAmB* YPA TIO* PI * CON V A * CON VP *FDIm*NDaTA*)msTuP* 

SOLVE!. CHOkE* CHANGE* CHARGE * TYPE * POINT* STAG 
COMMON PTS<2to) *APFA(2S) * WLt AK < 26) * T I I LE ( 1 6 ) * N 1 IEP*TPY 
COMMON/BNLYP/XSum (100) 9 Y SUM ( 1 OO ) * DELs HO (100) *ThETas(1G0) . 

CFSHO(lOu) * XCNE ( 1 OO ) * YCNl (10 0) *dElCNE(100) *THETAC(100) , 
CFCNF (10 0) .REYPRM* POP * AOP * VOP * PE Y SEC * PUS ♦ AOS * VOS ♦ PE X ♦ XSC ALE 
COMMUN/PPFLP/XPkK (6) * YPPF (6*26) *OPKF (6.26) *NPKr (6) . M A X . NM A X 
COMMON/CPLO T / I PLOT *XSTAPT *YSTAPT * XSPaN ♦ YSPAN * SC ALE * SP AN * AX I S * 

XOPGN* YOPGN* ASHKT* YSnK T «KKK ( 1* ) * PP ( 1* ) *XDOWN ( 100) ♦ YACPOS (100) 
COMMON /OUTPn/ IPNCH * IPpnT * ICU^P 
PEAL K l *K2*K3*K4 ,MaCh 


FUNCTION STATEMENTS 


FUNM(G* PH )=SG)PT <2.0/(i*-l.G)*(PH*M-(G-l.U)/G)-i.O) ) 

FUNP (G. AM) = ( I .0 + (G-l .0) /2.0*AM*AM> *<M-G/ (G-i.O) ) 

FUNQ (G* AM) =SQpT ( (G- i . 0 ) /2 . 0*«M*4M/ (i.0+(G-l.O)/2,Q*AM*AM) > 
FUNW (G * VEL ) =SdP T ( 2 . 0 / < <,- 1 . u ) * Vt L* VtL/ < 1 . 0- VLL* Vll ) > 


PPOGpAm EJECT 

5 PFaD (6*600) (UTLE(I)* 1 = 1,16) 

IF (EOF .6) 7,p 
7 STOP 

P CONT in je 

PtAD (6,~>02) w I Fl * h s-iP * I Os * 'i ams * T OP* (*AMp 


38 



G00131 


REAU (5*502) AMR*ANGR* YH A T I 0 * APR I M * OPR I M * OSHU 

GOO 1 S 1 


P£AD (5*502) OdOY*CONA*END*REYPRM*DELSHD ( i > *FDIM 

C 0 0 1 7 1 


RE AD (5*502) K1 *K2*K3*K4,S0L\/e*PKINT 

000211 


READ (5*504) N0ATA*N5HD*N8DY*NI TER* I PLOT* IPNCH* IPRNT * I COMP 

000235 


IF (NITER #GT. 0) HEAD (5*502) ( P TS ( I ) * ARE A ( I ) * WLE AK ( I ) * I = 

C 00255 


IF ( I PLOT .GT. 0) READ (5*502) XS TART * YSTART * XbPAN * YSP AN * 


1 

AXIStSCALE 

000276 


IF (ICOMP .EQ. 2) READ (5*50b) xPRF < 1) * XPRF ( 6 ) 

000310 


IF ( NSHD .GT. 1) READ (5*502) ( X5HD < I ) * YSHD ( I ) * I=1*NSHD) 

000327 


IF ( N0DY .GT. 0) READ (5*502) (X0DY < I ) « YHUY < I ) * I=1*NBDY) 

000345 

600 

FORMAT <1*A4) 

000345 

502 

FORMAT (6E12.0) 

000345 

504 

FORMAT <MI6) 

000345 

506 

FORMAT (2E12.0) 

000345 


N$T0P=6 

000346 


TRY=0.0 

000347 


CASE =0.0 

000350 


CHOKt =-l . 0 

000351 


IF (ICOMP .EG). 0 .AND. NBOY .GT. 0) ICOMP = l 

000361 


IF ( ANGR .LT. 0.0) TRY=i.O 

000364 


CALL START 

000365 


IF (TRY .ED. 0.0) CALL DATUM 

000367 


IF ( I PLOT .GT. 0) PKINT=-1.0 

000372 

10 

niter=i*niter 

000374 


I SLP= 1 

000375 


SK I P = 0 • 0 

000376 


T YPE = 1 • 0 

000377 


ST AG=0 . 0 

000400 


IC0NE=1 

000401 


IF ( W TFL .ED. 0.0) STAG=-1,0 

000403 


change = 0 • o 

000404 


CHARGE=0.0 

000405 


IF ( I PLOT .ED. 1) call PLOTC 

000407 


IF ( I PLOT .ED. 1) SK I P= 1 . 0 

C00413 


IF (PRINT .ED. 1.0 .AND. CHOKE .NE. -1.0) SKIP=1.0 

000424 


IF (PRINT .EQ. 2.0) SK I P= 1 . 0 

000430 


PTS(i\IITER)=HShP 

000432 


^LEAK(N1TFR)=0.0 

000433 


CALL CLE AR ( 0 * 1 ) 

000435 


ASSAPS=FUNG*WTFL/HSHP 

000440 


XSLP ( ISLP) =XPRIM 

000442 


YSLP ( ISLP) =YPRIM 

000443 


AMS(ISLP)=0.200 

000445 


AMP ( ISLP) =1 .500 

000446 


CALL FLOW ( ISLP) 

000450 


AREA (NITER) = AS ASb( ISLP) 

000453 


IF (POINT .ED. -1.0) GO TO 10 

000455 


PAM6=PHP ( ISLP) 

000456 


IF (TRY .ED. 1.0) CALL SONICS 

000461 


VEL = F UNO (GAMP* AMR) 

000466 


DO 12 J= 1 *100 

000467 


X ( 1 * J) = X P R I M 

000471 


Y ( 1 * J ) =YPR I M 

000473 


IF (J .EQ. 1) DELV=0.0 

000476 


IF (J .ED. 2 .OR. J .EG. 3) l)EL\/ = K 1 * ( 1 . 0 »K2 ) **2/3. 0 

00051 ? 


IF (J .GE. 4) DELV=K1*(1.0*K2)**( J-2) 

000524 


IF ( DELV .GT. DEL V = K 3 

000527 


VEL=VEL*QELV 

000531 


MACH=FUNW (GAMP* VtL) 

000535 


IF (MACH .GT. AMPUSLP)) MACh = AMP ( I SLP) 

000541 


P ( 1 * J) =FUNP (GAMP* MACH) 

000546 


T ( I * J) =PMER< AMR, ANGR* MACH* GAMP) 

000554 


IF (J .ED. 3) VEL=FUNU (GAMP* AMR) 

000562 


IF (MACH .EQ. AMP ( I SLP ) ) GO TO 14 

000565 

12 

CONTINUE 

000567 


CALL EXIT 

000570 

14 

IF (SKIP .EQ. 1.0) CALL OUTFLDU) 

000574 


DO 22 1=2* NDAT A 

000576 


X (2* 1 ) =XSON I C ( I ) 

000600 


Y(2*l)=YS0NlC(l) 

000601 


P(2*1)=PS0iMIC(1> 

000603 


T (2* 1 ) =TSONIC( I ) 


1 *MITER) 
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000604 


IF (TRY .EG). 1.0) CALL SONPT(I) 

000610 


DO 16 J=2 ? 1 00 

000612 


IF (P(1*J> .EG. 0.0) GO TO 18 

000614 


CALL FIELO(J) 

000615 

16 

CONTINUE 

000b 1 7 

18 

I SLP= l ♦ I SLP 

000621 


CALL SLIP(J) 

000622 


CALL SLIO(J) 

000624 


IF (SOLVE .EG. 2.0 .AND. POINT .EG. -1.0) CALL BREAK ( J) 

000635 

20 

IF (STAG .EG. 2.0) GO Tl) 34 

000637 


AREA (NITER) =AMIN1 ( AREA ( N I TER) * ASASS ( ISLP) ) 

0 0 0644 


CALL CLEAR ( 0 ♦ J ) 

00064b 


RAOIUS=SQRT ( (X ( 1 «?> -X < 1 * 1 ) ) **2+ ( Y ( 1 , 2 ) -Y ( 1 1 1 ) ) *»2) 

000655 


NSERT=RADIUS/K4 

000660 


IF (I .EG. NDATA .AND. NSERT .6E. 2) CALL INSERT (NSERT-1 ) 

000673 


IF (SKIP .EG. 1.0) CALL OUTFLD(l) 

000677 


IF (ICOMP .EG. 2) CALL PROFLE 

000702 


IF (POINT .NE. 0.0) GO TO 34 

000703 

22 

CONTINUE 

000706 

24 

LSLP= I SLP 1 

0007 1 0 


DO 32 JSLP=LSLPt 100 

000711 


CALL BOUND ( 2 ) 

000712 


DO 26 J=3 .100 

0 0 0 714 


IF (P(l.J) .EG. 0.0) GO TO 28 

000716 


CALL FIELD(J) 

00071 7 


CALL CHECK (J*SHOCK) 

000721 


IF (SHOCK .EG. 1.0) GO TO 30 

000723 

26 

CONTINUE 

000725 

28 

I SLP=1 ♦ I SLP 

000727 


CALL SLIP(J) 

000730 


CALL SLID(J) 

000732 


IF (SOLVE .EG. 2.0 .AND, POINT .EG. -1.0) CALL BREAK ( J) 

000743 

30 

IF (STAG .EG. 2.0) GO TO 34 

000745 


AREA ( N I TER) =AM INI (AREA (NI TER) * ASASS (ISLP) ) 

000752 


CALL CLEAP(ltJ) 

000754 


RAOlUS = SORT ( (X ( 1 «2>-X( 1 1 1) ) **2 ♦ < Y ( 1 *2) -Y ( 1 * 1 > ) ** 2 ) 

000763 


NSERT=RADIUS/K4 

000766 


IF (NSERT .GE. 2 ) CALL INSERT (NSERT-1 ) 

000774 


IF (SKIP .EG. 1.0) CALL OUTFLD(i) 

001000 


IF (ICOMP .EG. 2) CALL PROFLE 

001003 


IF (POINT .NE. 0.0) GO TO 34 

001004 

32 

CONTINUE 

001006 

34 

IF (CASE .EG. 1.0) GO TO 38 

001010 


IF (SOLVE .LE. 1.0) CALL ESTMP 

001013 


IF (SOLVE .EG. 2.0 .AND. TYPE .EG. 0.0) CHOKE^O.O 

001023 


IF (SOLVE .EQ. 2.0 .AND. TYPE .EG. 1.0) CALL ESTMW 

001033 

36 

IF (ICOMP .GT. 0 .AND. CHOKE .EG. 0.0) CALL COMP ( K4 ♦ SK I P ) 

001044 


CALL OUTSLP 

001045 


IF ( I PLOT .EG. i) CALL PLOTL 

001050 


IF ( I PLOT .EG. 1 .AND. CHOKE .NE. -l.O) GO TO 40 

001061 


IF (PRINT .EG. 0.0 .AND. CHOKE .NE. -1.0) GO TO 40 

001070 


IF (PRINT .EG, 1.0 .AND. CASE .EG. 1.0) GO TO 38 

001077 


IF (PRINT .EG. 2.0 .AND. CHOKE .NE. -1.0) GO TO 40 

001106 


IF (CHOKE .NE. -1.0) CAS£= 1 . 0 

001111 


IF (CASE .EG. 1.0 .AND. IPLOT .EG. 2) IPLOT=l 

001123 


GO TO 10 

001124 

38 

IF (ICOMP .GT. 0 .AND. PRINT .EG. 0.0) CALL COMP l K4 , SK I P ) 

001135 


IF (CASE .EG. 1.0 .AND. IPLOI .EG. 1) CALL PLUTL 

001147 

40 

GO TO 5 

001150 


END 


SUBROUTINE ST AWT 
C 

C CALCULATION OF PERTINENT EJECTOR PARAMERTERS 

C 


40 


000002 

000002 


COMMON X(2*iOO)*V(2*iUU)tP<2,100)*T(2,100> 

COMMON XbLP C i 0 0 > .Y:>LP< 100) t AMP (100) ♦ThLTA(IOO) «PhP<100) * AMb(lOO) 



1 RHS<lOO)*AbAbSUUO),'dsiJA(ibO) • I Sl^ 

0100 0 2 COMMON XlS(/ii2b) *Yis(2ii2b) * v ( r* i ) , NaUN I C i N ANGLt 

0 0 0 0 0 2 COMMON X SON I C ( Pn ) , Y 3 iJn I C ( "'b ) ♦ P bO N I C ( 2 b ) , I SUN I L < 2o ) i I SON 1 C 

000002 COMMON xCONr ( 100) *YCU If-. ( 10U) iPCo-yE ( 1 .0) * TDHt ( 1 0 0 I * ICONt 

COOOU2 COMMON Kan •) ( 1 0 r ) , YsrIU U 0 J ) ♦Jf'jUA ( I UU ) i DSHD 

C 00002 COMMON x H i ) Y (ICO) iYddy < 1U0) i JrbUX(lOD) *.\ibi)Y 

0 J 0 0 U 2 CuMMON wTHL*HbbP*10:3« rUR? , iAiMib4 | ''P,f’<jNGiAPR,Af'jijK»AHR£F<ASSAP5i 

1 <RRl?^*YPRl , 4*^HRlMiOPRIM*C£L*CvL*CONrtiUbUYiOSHQiEND* 

2 PA4ri*YRATlu*Pl * C U N tf A * C UN V H « H) I M « NO A TAtiMsTUH* 

T SOL YE ♦Culler iCHANbtiCHAPGEiTYPEfPOlNTiSTAb 

000002 COMMON R T 8 ( 2 6 ) , a r r_ A ( 2 b ) *WLEAM25) i T I T L t_ ( 1 ^ > • w 1 I lk » TWY 

D0Q002 COMMON/ 8NL Y*/XSU*i (100) * YSUM ( 1 j o ) * Ot LSHU ( i 0 0 ) i I mETAS ( 1 00 i * 

1 CPSHO ( 1 0 0 ) i XCNt (100)1 YCNt ( 100 ) iDELCNE ( iuU ) . T Nt T AC ( 1 0 0 ) i 

2 CFCNF ( 1 00 ) iHt YPRM i POP i AOPiVOPiKtYSEC,PObiAOS*\/OS*PEXiXSCALA 

0 C 0002 REAL K 1 * K 2 

000002 FUNA (G*AM> = ( (G+l .0) /2.0) ** (- (O+i .0) / <2,0* (O-i . U) ) ) *1 .O/AM* ( 1 .0* 

1 (G-1 .0>/2, J*AM*AM)**( (G+l • 0) / <2. 0* <0-1 .0) ) ) 

000033 FGAM (G> = SURT ( G >*((&♦!. 0>/2.0)**<-<G+1.0)/<2.U*to- 1.0))) 

C 

C FORMAT STATE MF Nib 

C 

000051 b00 FORMAT ( 1 H 1 * //2 7X * 1 8 A4 ) 

000051 bO? FORMAT ( // 36X * 35 hPk I M AR Y NOZZLE EXIT MaCH NO.* AMr =H.b) 

000051 b07 FORMAT ( / / 36x M 7 hPR I M AH Y NUZZLE ExiT DIAMETER* OPPIM =F9.5) 

000061 bOH F OHM AT ( //JSX « 32HPH I M AK Y NOZ/Lt LIP AiniGLEi ANGk = F i 0 . S ) 

0 0 0 0 M bio FOPMAT < // 35x *4 JhOI A ME TEH OF Tut CYCLINUHICAl sHkOUD, DSHD =F9.5) 

OOOOS1 ML FORMAT ( //36X « 35bLOC4 T I UN OF PkIMAKY NOZZLEi APRIM =F 1 0 • S ) 

000061 b 1 2 FORMAT ( //36X i SOnh JEC TOP LENGTH MEASURED FROM PRIMARY NOZZLEi END 

0 : E8<4 . 

000051 Ml FORMAT (//3SXM ZhPkIMARy NOZZLE RADIOS RATlOt YRaTIO =F8.S) 

000061 b l 5 FORMAT < // 35X , 4 OhPR I MaR Y NOZZLE REYNOLDS NUMbtR* REYPRM =£10.3) 

000061 bib FORMAT <//35 Xi42hTuTAl IEMPERATUke OK SECONDARY FLOW* TOS =F9.3) 

OOOObl b 1 7 FORMAT ( //35 X iSOhrmT 1 o OK SPECIFIC HEATS KOR SECONDARY FLOW* GAMS 

1 =K B , 6 ) 

000051 b 1 8 FORMAT ( //3bX * aQHTu T AL I EMPER A T ORE OF PRIMARY FLOWi TOP =F9.3) 

000061 b 1 9 FORMAT <//3SX*4dHKATI0 OF SPECIFIC HcATb FOR PkIMaRY FLOW, GaMP =F 

18. S) 

DC 0 06 1 b2 U FORMAT ( // H5 A , 4bhF LOw IN EJECTOR IS Two D I MENS i OimAL i FDIM = 0.0) 

000061 b22 FORMAT <//3 oAi4JhFLOw IN EJECTOR IS AX I SYMME T R I C i FDIM = 1,0) 

000061 b?4 FORMAT ( //35X i ARhiNOMHER OF POINTS SPtClFING SHROUD CONTOURi NSHU = 

113) 

C00051 b26 FORMAT < //ISA i 47HNUMbER OF POINTS oPECIFING PLUG CONTOURi NtiQY =18 

1 ) 

000061 b?H FORMAT (// TSa iSOhNOMHER of POINTS SPtClFING PLUG CONTOURi N8D Y = a 

16) 

0 0 0 06 I o30 FORMAT ( //3SX i 5bbNUM8EK OF PulNTS SPtClFING ENTtRENCE CONDITIONS* 

INDATA =13) 

000061 b32 FORMAT ( 1 H 1 , //5 1 A 1 2 9H SHROUD CONTOUR SPEC I f I CAT I OHS // ) 

000061 b34 FORMAT <1 RXi3HI = I 3 * 4 A i 9HXSHu < 1 ) = F9 . S i 4X 1 9H YShD ( I ) =F8.5i4Xi 

llOHOYSUX(I) =F9.ot4Ail OH ANGLE ( I ) =F9.4) 

CC 006 1 b ib FORMAT ( 1 H l , //62 X i 27HPLUG CONTOUR SPtC I F I C AT 1 GNS// ) 

000061 bl 8 FORMAT <19Xi3Hl = I 3 i A X i 9HXHD Y < I ) =F 8 . 5 i 4X i 9 H Yhu Y ( 1 ) =F8.5i4X, 

1 10HUYHOX ( I ) =F9.bi4Xi 1 OHANGLt ( I ) =FR.4) 

C 

C SUHHOUTINF. START 

C 


000051 

L ND= E NO -X PR I M 


000053 

IF ( ANGR « G T • 

U.0) A.N(jR = 0 • 0 

000056 

WRITE 

(bihOO ) 

(TlTLEd) *1 = 1*18) 

0 0 0 0 b7 

WRITE 

(6*607) 

DPR I M 

C 0 0 0 75 

WRITE 

( 6 * 6 0 2 ) 

AMk 

000 103 

WRITE 

(6*608) 

ANGR 

0001 1 1 

WRITE 

( 6 * b 1 3 ) 

YRATIO 

C 00 1 1 7 

wR I T E 

(6*611) 

XPRIM 

000125 

IF (NSHD .ED. 

1) WHITE ( b i 6 1 0 ) USHU 

000135 

write 

( 6 * b 1 2 ) 

END 

J00143 

wrJTE 

( 6 * 6 1 6 ) 

RtYPKM 

L00151 

WRITE 

( 6 * b 1 b ) 

TOs 

0 0 0 1 s 7 

WRITE 

I o i b 1 7 ) 

GAMS 

0 0 0165 

WRITE 

(6*618) 

T UR 

000173 

WRITE 

( 6 i 6 1 9 ) 

GAkP 

000201 

IF (FDIM • EO . 

0.0) WRITE ( 6 * b20 ) 
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oooaob 

000214 
000222 
000232 
000240 
000246 
G 0 0247 
OV0251 
000252 
000254 
000255 
000257 
000260 
000263 
000266 
000270 
000274 
000277 
000301 
000303 
0 C 0 30 7 
000310 
000314 
000316 
000320 
000323 
000340 
000343 
000343 
000351 
000354 
000360 
000361 
000363 
000367 
000372 
000374 
000377 
000400 
000404 
000406 
GG0410 
000413 
000430 
000433 
000433 
000441 
000444 
0004*5 
000450 
000465 
000467 
000472 
000501 
G0Q5U3 
000506 
000510 
000511 
000512 


1 0 


12 

14 


16 


18 

20 


IF (FDIM .EQ. 
WRITE ( 6 * 624 ) 
IF (ABS(CONA) 
IF (ABS(CONA) 
WRITE (6*630) 


1.0) WRITE (6*622) 

NShD 

•EQ. 0.0) WRITE (6*626) 
.GT. 0.0) WRITE (6*628) 
NOATA 


LCHK=45 
PI=3. 1415927 
CONVR=0. 01 745329 
CONV4=l .O/CONVR 


NBDY 


angr=conyr*angr 

DPREF=DPKIM 

YPRIM=1.0 

IF (NSHD .EQ. 1) XSHU ( 1 ) = 0 • 0 
IF (NSHD .ED. 1) Y SHD ( 1 ) = DSHD/ 2 • 0 
DO 10 1 = 1* NShD 

XSHD ( I ) =2.0* (XSHO ( 1 ) -XPR I M ) /UPREF 
Y5H0 ( I ) =2 . 0* YSHD ( I ) /DPREF 
CONTINUE 

IF (NSHD .LE. 1) GO TO 14 

CALL SPLINE (XSHD* YSHD* NSHO* 0 YSOX * 02FUX2 ) 

L I NE=0 

WRITE (6*632) 

OO 12 1 = 1* NSHD 
LINE=1*LINE 

ANGLE=CONVA*ATAN (DYSDX ( 1 ) ) 

WRITE (6*634) I*XSHD(I> *YSHU(I> *UYSOX(I) *ANGLE 
IF (LINE .LT. LCHK) GO TO 12 
L I NE=0 

IF (I .LT. NSHD) WRITE (6*632) 

CONTINUE 

IF (ABS(CO^A) .GT. O.O) CALL CONE 
IF (NBOY .EU. 0) GO TO 20 
DO 16 1=1* NBDY 

X8DY ( I ) =2. 0* (XbOY ( I ) -XPRIM) /UPREF 
YBDY ( I ) =2. 0* YBDY ( I ) /DPREF 
CONTINUE 

CALL SPLINE (XBOT * Y80 Y * NBU Y * DYBUX * D2FDX2 > 

L I NE = 0 

WRI TE (6* 636) 

DO 18 1 = 1* NBDY 


LINE* INLINE 


ANGLE=CONVA*ATAN (DYBOX ( I ) ) 

WRITE (6*636) I *XbDY ( I ) * YBDY ( I ) *DYBUA l I ) * ANGLE 
IF (LINE , LT . LCHK ) GO TO 18 
L I NE = 0 

IF (I .LT. NBDY) WRITE (6*636) 

CONTINUE 


XPRI M=0 . O 

CALL F IND (XPRIM* YBODY * SLOPE* l.U) 

APR I M= ( YPR I M*- YBOtjY > * l YPRIM-YHOUY) **FU I M*COS ( AT AN ( SLOPE ) ) 


ENU=2.0*END/DPRtF 
APREF=FUNA (GAMP* AMR) 

FUNG=FGAM (GAMP) /FG AM (GAMS) 
XSCALE=DPRIM/2* # o 

IF (OPRIM .EQ. 2.0) XSCALE=6. 0/24.0 
CFL= I • 0 
C YL- 1 . 0 
22 RETURN 
END 


C 

C 

C 

000002 

000002 


SUBROUTINE DATUM 

CALCULATION OF ENTERING FLOW CONDITIONS 
COMMON X(2.100)*Y(2*100)*P(2»100)*T(2*100) 

COMMON XSLP< 100) * YSLP (100) *AMP (100) * THETA (100) *PHP (100) * AMS ( 100) * 
1 PHS(IOO) *ASASS( 100) * DA SoX (100) * ISLP 
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3CG0u2 
j 0 00 0^ 

C, 00002 
0000 02 
c o o o u 2 

0 0 0 0 U 2 


C 0 00 02 
000002 


000002 

000002 

000002 

000012 

000031 

00004b 

000065 

000106 
C 0 0 1 20 
000133 
000141 


000141 
0CQ142 
0001*5 
000146 
000147 
000132 
00 0 1 5b 
000 161 
000162 
000163 
000167 
000171 
000172 
000175 
000200 
0 0 0 2 U 4 

CO 02 1 1 
000214 
000217 
G 0 0224 

00022b 
000227 
0G0233 
00023b 
000240 
000242 
000244 
G 0 0230 
000232 
G 0 0 253 
00025b 
000260 
000264 
000272 
00027b 
000304 
000310 
000313 
3 G 0 3 1 b 
000321 
;:o32b 
000332 
000336 
o 0 0 34-0 


COMMON XI5(2lf26)*Yib(2i<26)*W(2i). TAU (26) * NbON I C * N ANGLE 
COMMON X vUN I C ( 2 b ) * Y SON 1 C ( 2 b ) .PsONlC(26) * TSU' 1 1 C ( 26 ) . I SON I C 
COMMON xCONF ( i 00 ) * Y CONK ( 1 0 U ) .PLUnL(IGO) t TCONt ( i 00 ) ? I CONE 
COMMON X 500(10 01 « Y ShL) ( 1 U O ) . O Y SuX ( 1 U U ) . NSHl) 

COMMON <OOY<100> *YhOY< 1UU> *UYrtJA(lUU) «NM)Y 

COMMON NTFL.HSHP.TU:>. TOP * OAM 6 .GAMP ♦ F Obb* A MW * AfMbP . AFKt h , ASSAPs. 

I XPk I M ♦ YPP I M . APrV j M . DPP 1 M . CP L *C VL .CON A . L>hG Y * OS MO * ENO . 

p PA*'B. Y^AT IU*P1 .CUnVA.CONVh.FUIM.NDAT A.nSTUP. 

3 SOLVE . CmUKL . CHANGE . CHAPGt * TYPil.POINT.STAIj 

COMMON PTS(2S) .akE A(2s) **JLEAK(2S) . TI iLEd*) «Nt fEH.THY 

COMMON/HNL YP/XSUM ( i 0 0 I « Y SUM ( i UU ) «0 E L:>hO (IUO).THETas(IOO). 

1 CE SHO ( 100) * ACNE ( 1 U 0 > .YCNE ( 100) * Dt LC Nt. I i U U > . THE T AC < i 0 0 ) . 

p CFCNF (10U) .rtEY^KM.PGP. AOP. VOP. kEYSEC.POs.AOS. VOs.PFX.XSCALF 

O I MENS I ON i) ( 2) ♦ AMO (21 ) 

PEAL M U A V E 

FUNMU ( AM) = A$IN ( 1 . 0/AM ) 

FUNM(G.ph) =SQPT < 2.0/(G-1 .0) * (PH** (-(o-l .0) /G) -1 ,0 ) ) 

FUNP < G • AM ) = ( 1 . 0 ♦ ( G- 1 . 0 ) /2 . 0 * AM* AM ) ** ( -0/ (6-1*01) 

F ONG ( G » AM ) =SOP T (AM*AM/(1.0+ ( G- i.O)/(G*i.G)*(AM*AM-l.U) ) ) 

FUNP (G.O) =SUPT ( ( ( 1 • 0 - (0- i . 0 ) / (b + 1 • 0) ) *G*Q) / 

1 (l.O- (fa-1.0)/ (U^l.O) *G*G) ) 

FLINT <G. AM) = < I . 0 * (G-l . 0) /2.0*AM*AM> ** (-1 *0) 

FONU (TEMP) =2. 27*32. i 7* TEMP** 1 .3/ < 1 06 » 6 + TEMP I *1 .6-8 
AVE(XlfX2)=(Xl*X2)/2.0 
nQQ FOKMAT ( lHl *//2riX. 12A6.///) 

C 

C sUBPOUT I iNE OATUM 

C 

XP=0.0 
O I V=NO AT A- 1 
I SON I C=NU A T A 
NANfaLE = NO A T A 

CALL F INI) UP* YPtUYPOX . 1 . 0 ) 

OELY=(1.0-YP)/OIV 
ANGLE = AH S (ATAN(UYPUX) ) 

ICONE=l 
XPEF = 0*0 

TCNt=AHS ( ATAN(UYPUX) ) 

DELCNE ( I CONE) =0. 0 

IF (PEYPkM .EG* 0.0) GO TO 6 

7P=TOP*FUNT (GAMP , AMP) 

AP = 4 4 . 02*SQPT < TP ) 

VP=2.0*AP/«erP*M#ASCALfc*AMW 
PP=53.3*TP*FUNO ( TP) /VP 
.jqP^PP/FUNP (GAMP. AMP) 

AOP=44 , 02*SQPT (TOP) 

VOP=33. 3* T OP*F ONU ( TOP) /POP 
h IF (ANGLE .EG. 0.0) GO TO 6 
YCONE(ICUNE)=YP 
PCONE ( I CONE > -F UNP (GAMP * AMP) 

CALL CNIYP (OOSDX) 

YP= YP*L>ELCnE U CONE ) 

UYPDX=UYPUX*DUSUX 
XPEF=XP-YP/UYPOX 
ANGLE = 4HS< ATAN(t)YPOX) ) 

H DO 10 1=1 *NOaTA 
XbON I C ( I ) =0 • 0 
YSON1C ( I > =1 .0 
PSONIC ( I ) =FUNP (GAMP . AMP) 
f SONIC < I ) =AT AN (OYPOX ) 

AMG ( I ) =FUNM (GAMP *P SON IC ( I ) ) 

10 CONTINUE ^ T| . 

IF (FDIM .EG. 0.0 .OP. .MBOY . t-G. O) 60 TO 12 

QJsFUNG (GAMP. AMP ) 

UP=0P*C05 < ANGLE ) 

VP=GP*S I N ( ANGLE ) 

VUP=-1.0/TAN(ANGLE) 

call CONIC (XWF.F* Y SUN 1C ( 1 ) . UP ♦ VP t V UP. oAMP ) 

OP=SQHT (UP*UP+VP*VP) 

AMG ( 1 ) =F UNP (GAMP . OP) 

PSO.N I C ( 1 ) =F UNP (Gamp. A'^G ( 1 ) ) 

T SONIC (1 > = -A T AN ( vP/UP) 
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00 0344 
0o J J4b 
:-jQ34 7 
0 0 0 331 
003332 
0 0 0 3 3 3 
300 J3d 

C 0 j 3b 0 
C 0 0 3 b 7 
C 0037J 
0 0 0 3 7 o 

t 0 0 4 0 i 
0 0 0 4 u 4 

000410 
000413 
0 00422 
0 0 0 426 
C 00434 
000437 
C 0 0 4 4 7 
C00433 
C00462 
0 0 04b 7 
0 0 0 4b 7 
000471 
000474 
00047o 
000501 
0 0 050* 
000514 
000520 

0 0 0 5 30 
000533 
000541 
000544 
000547 
000552 
000537 
000560 


AsiGR=TbO\IIC ( 1 ) 

12 30 lb I=2#N0ATA 

IF (I .Fj. NDATA) GO TO 16 
* SONIC < I ) =X SONIC < I - 1 J 
YbUNIC < I ) =YbONlC ( 1-1 ) -DEL Y 

o you* =o.o 

IF <XkEF . 6 T . 0.0) OYUL>X = -Y30NIC ( I ) /XREF 
IK (FDIM .EU. 0.0 .0*. NBOY .£u. 0) bO TO 14 
UP=FUNQ ( GAMP * AMk ) 

UP=OP*COb ( ANGLE ) 
y/P = UP*S I N ( ANGLE ) 

VUp = ~ 1 . 0/ f AN ( ANGLE ) 

CALL CONIC < XKF F * YSONIC ( I ) 9 UP * VP 9 YUP * o AMP ) 

UP=SUHT (UP*UP+ YP*VP) 

AMO ( I ) =FUNR (GAMP, Qp) 

P50N I C ( I ) =FUNP (GAMP 9 AMO ( 1 ) ) 
r SONIC ( I) =“A 1 AN( VP/UP) 

14 T A V E = A V E ( T SONIC ( I ) * I SONIC ( I - i ) ) 

MiJAYE = AVE (FUNMU ( AMU ( X ) ) * F UNMO (AMU ( 1-1 ) ) ) 

0(2) = T AN ( TA^/l-MUAVE ) 

XSON tC ( I ) = ( YbON I C { 1-1 ) -YSONI C ( I ) -U ( 2 ) <*X5QNlC(I-l ) )/(L)YOOX-0(2) ) 
YsON IC(I)=YS 0NIC(I-1 > +0(2) * ( A bON 1C (I)-XSUNlC(l-l) ) 

GO TO 14 

lb XSON 1 C ( I ) =X SON I C ( I - 1 ) 

CALL F I NO ( XSON I C ( I ) 9 YbONIC ( I ) 9 UYUUX* 1.0) 

O YOU X = l)YUOX ♦UGbOX 

Y SON I C ( I ) = YSONIC ( I ) ♦UELCNE ( I LONL > 

T A YE = A YE ( T SONIC ( I ) t T SON I C ( I-i ) ) 

MUAVE=A YE (FON^U ( AMU ( 1 ) ) *F UNMU < AMU ( I - 1 ) ) ) 

D (?) =TAN (TAVE-MJAVE) 

XSON I C ( I ) = ( YSONIC ( I - 1 ) -YSONIC ( I ) - J ( 2 ) *XSONI C ( I — 1 » ♦DYQOX <f XSONIC(I) ) 
1 / (UYUUX-U (2) ) 

14 CONTINUE 

XCONE ( ICUNE) =XSONlC (NOATA ) -OtLCNt ( I CONE) *3 IN ( TONE) 

CALL F I NO ( ACONE ( i CONE ) * YCONE ( I CONE ) 9 U YPDX *1.0) 

PCONE ( ICONE) OPSONIC (NoaT A) 

TCONE ( I CONE) =Af A n(UYPoX) 

AMP=FUNM (GAMP, P SONIC ( 1 ) ) 

RETUPN 

END 


C 

c 

c 

G 0 00 02 
000002 

C 0 00 02 
000002 
000002 
000002 
000002 
000002 


000002 

000002 

000002 
000023 
C 0 0 0 3 7 
000053 
000073 
C 0 0 1 i 2 


SUBROUTINE SON ICS 

constpuciion or jsocloines for pkimary flow field 
COMMON X(2»iOO>*Y(2*100),P<2.iOO)9T(2*lOO> 

COMMON X S L P < i 0 0 ) •YSLP(IOO) 9 AMP ( 1 0 0 ) • THE T A ( i 00 ) tPnP<100) 9 AMS (100) 9 
1 PHS(IOO) *aSASS( 1U0) 9 O AbU a ( 100) fISLP 

common xis<Pi«^6)«rib(2i«Pb>*w(?i) , tau< 2b) « nsonic* wangle 

COMMON XSON I C ( 2b ) 9 YSON I C ( 26 i 9p50NlC<26) 9TS0NiC(2b) 9 ISONIC 
COMMON XCONE (100) 9 YCOnE (100) 9 PCONt (100) 9 TCUNt (100) 9 I CONE 
COMMON XSmO( 100 > 9 YsHD( 1 UU) 90 Y 5 UX < 1 00 ) 9 NSH 0 
COMMON XBOY (100) 9 YbDY (100) 9 OYBOA ( 100) 9 nBD y 

COMMON WTFL 9 rtSHP 9 TOS 9 TOP 9 GAMS 9 G Amp 9 f UNG 9 AMR 9 ANGR 9 APREF 9 ASSAP 39 

1 XPRIM, YPKIM. 9 APRIM 9 DPP IM9CFL9CVL9C0NA90wuY*0SM09ENU9 

2 PA MB 9 YPaT IO 9 PI 9 CONYA 9 CONV k 9 FD I M 9 NDAT A tiNSTOP 9 

3 SOL YE * CHOKE * CHANGE *CH A PbE *TYPt.POINTfSTAG 
COMMON PTs ( 25) 9 APE A (23) 9 tv LEAK (2b) 9 T I TlE ( 14 ) 9 N 1 1 LP 9 TPY 
PEAL M ATCM 9 MAMB , MAPPCH 

FUNM (b. Y ) =50 H T (?.0/(G*l,0)*Y*Y/(1.0-(G-i.0)/(G*l,0)*Y*Y) ) 

FUNP (Gt AM) = U . <)♦ (ft-i . 0) /2. Q*aM*aM) ** (-G/ (G- l . u ) ) 

K UN P ( G 9 A M ) = ( 1 . 0 ♦ ( G - 1 . 0 ) / 2 . 0 * A M * A M ) * * ( - 1 . 0 / ( G- 1 • 0 ) ) 

FUNO(GtP) = bUk T ( ( n + 1 . U ) / l G - 1 . 0 ) M 1 . u - H ( G- l.O) /(j))) 

FuNY (G 9 AM) =SOP I ( ( G* 1 . 0 ) / 2 , 0 -* a M * A M / (l.O-*' (G-l . 0 ) /2.Q*AM*AM) ) 

OMEGA ( Y 9 AM ) =ALOG ( 2 . 0 * V * AM/ SUP T ( 1 . 0- AM « AM ) / ( 1 . 0 + SUP T { 1 . 0 ♦ \J tf v «- 
1 AM«AM/ ( 1 . u- AM*AM ) ) ) ) 



? 0 0 1 o 
o i 0 1 <+ 6 


COO 1*6 
0 0 0 14 7 
COO ibO 
COOlbl 
000153 
000164 

000157 
j 0 0 160 
000164 
COO 171 
00017b 
G 0 020 1 

oooaoj 

C002Od 
000206 
000207 
00021b 
000217 
000220 
000222 
000226 
CO 0234 
000237 
000241 
C 0 0 24b 
000246 
G0G2S3 
0 0 0254 
000257 
000262 
000264 
C 0 0266 
000273 
000300 
000303 
000304 
000305 
00031 1 
000312 
000313 
000315 
000316 
000320 
C 0 0 323 
000330 
000332 
000343 
000346 
000351 
COO 353 
000355 
C 00356 
C 0 0360 
000362 
000365 
000371 
C 003 7*4 
0 0 C 3 77 
000402 
000413 
000422 
000425 
000435 
000437 
000443 
0 0 0444 


c 

c 

0 


AYt(Xl*X2)=<XL*A2)/2.0 „ . . 

,,G0 rOHMAT <Hl.//‘*0*.‘*8HUNAbLt TO OBTAIN CONVEHbT NCt IN SUBBOUTINt SO 

i no//// ) 

SUHHOUT T NF SON ICS 

N '4 AX = 26 
I NNt * = 0 
;m60NIC = 21 
*TFL*I = Q.« a 
nangle=no a r a 

ANGLE =CON V A^Anb ( ANCjR ) 

F**OP=0.0001 

( ^ATCH = 0 .94-0. 0 0 1* ( ANGLt-10.0 ) 

YMATCrl=FUNY ( GAMP * MATCH ) 

\/A^d=F <JNU <GAMP«PAMfcJ) 

M AMrt = F UNM ( G A HP * V A Mb ) 

YM AX=V A MB/ V MATCH 
10 I NNEk=1 ♦ INNER 
I TEH = 0 
\/ELAPP = 0- 20 

Krti)VtL = WTFLw/ < YR aTIO*YRaT I 0**F0lM) 

12 ITEH-1MTFR 
V APkCH=VEL APR 
YELSTR=VAPRCH»VMATCH 
MAPRCH=FUNM (GAMP* VELSTR) 

\j ELAPP = PH()VEL*FUNN ( GAMP i MATCH) /KU.vJK (OAMPtMAPPCM) 

TEbT= A8S ( VELAPP-VAPHCH > 

IF (ITEM « LT • 25) GO TO 14 
rfRlTE <6*b00) 

CALL EXIT 

14 IF (TEST .GT. EPPOw*VELAPP) GO TO 12 
YM I N=0 • 750 

IF ( N ANGLE . GT • NM A X ) NANGLE=NMAX 

IF (N ANGLE *LE* NS TOP) N ANGLE = 1 ♦ Mb TOP 

XNOA=NANOLE*NSTOP 

XN0w=NS0NIC-1 

tf J=OMEGA (V MAX. MATCH) 

D£Lw = w J-OMEGA ( YELAPR * MA T Cm ) 

UtLV= ( VMAX-VMIN) /XimOW 
XIS(1«1) S 0«0 

yis<i*n = i.o 

w ( n =OMFGA< YM AX * M A T CH ) 

TAO( 1) = ANGR 

ALPhA=ARS ( ANGP) 

ot=alpha/xnoa 

DO 16 1=2* N SONIC 

YR A T IQ=YRATtO-OELV 

IF (YPATIO • LT • 1-0) YR A T I 0= 1*0 

W ( I ) =OMEGA ( VPAT IOtMATCH) 

Dw/ = w ( I ) - w ( I - 1 ) 

CALL DZDAOr <W(I) * w J* ALPmA» TAU ( 1 ) tOELw tDWtO .0 *DaS*OYS ) 

xis( m) = xib(i-i f n+oxs 
YISUf l>*VIS(I-i«n*UYS 
IF (VRATIO • EO , 1-0) 60 TO IS 

16 CONTINUE 
18 WTFLw=0-0 

NCHNGE=NANGLE-NbTUP 

OO 20 J = 2 * N ANGLE 

IF (J -LE. NCHNGE) L) T =0 1 

IF (J -GT- NCHNGt) Ol=OT/2-U 

IF (J -FU. NANGLF) OT=-TAU(J-I) 

TAU < J) =TA<J < J-i ) *OT 

AVETAU = AVF (TALK J) ^ TAU( J-l) ) 

CALL i)ZDXOY<w/<l) fWJ«ALP6A*TAU(J> *OEL*fU#0*L>TfUAbtOYS) 

XISU * J> s XlS< I * J-l > ♦UaS 
YIb( I *J)=YIS(I*J-1 ) ♦DYb 

*TFLW=*TFL*+ <OY;>*COS ( AYETAU) -DAb*SIN< AYETAU) ) 

20 CONTINUE 

5CALE=1 • 0 - Y lb ( I t J) 

^TFL^ =- wTFL^/bCALfc 

T£bT = A8S ( PHOVFL-wTFLw / ( YHJlT IU*YPW I IO**FDl M ) ) 


v 0 J 4 b *+ 

^ C J 4 b b 

0 • j 0 *♦ n 3 
C 0 0 h 7 J 
C C 0^71 

; o o ^ ^ 

^03474 
3 G 0 5 0 i 
C G 0 5 0 3 
0 0 3 5 1 <4 
3 0 0 5 2 0 
CCQS23 
3 0 Qb2b 
0 G 0 b 2 7 
0 G 0 b 3 G 
0 0 y s 3 2 
o c o b4 1 
300552 
u y J 5b2 
G 0 3 b to 
000571 
000574 
00057b 
000577 
000601 
000603 
00060o 
C 0 0 6 1 0 
0 0 Ob 1 1 


000003 

000003 

000003 
000003 
0 G 0 0 0 3 
C000O3 
000003 
C 0 00 03 


000003 

000003 

000003 

G 000 03 

300003 


0 0 0 0 0 3 
C0QQO4 
CGQOGb 
300007 
000011 
300013 
o o q u <e 7 
000030 
000032 
000036 


IF (iN'ir'K *LT # 2b) GO Tu 22 
* P I T t ( 6 « 6 0 0) 
call ui r 

22 IF (fEbT .GT* EPhOk^nuO V EL > GO TO 10 
Vp A T I u= VM aX 
OO 24 I=2»MbONIL 
VP AT IO=YPATI O-DEl V 
ti ( I ) =UMFGa ( VPAT 1 O* MATCH ) 
o^=w ( i ) -w t i-n 

CALL 020*0 Y (w ( I ) ^J^ALHHA? TAU(l) *OLLrf*DWf0.0?DAS*L>YS) 
Alb(M)=X 1511-1, n ♦ O X S/SC aLE 
YIb(I*l)=YIb(I-i*n ♦OYS/5CALE 
24 CONTINUE 

00 2 A I=1 ,nSONIC 
DO 2h J = 2 « NANGLE 
0T=T4U< J) -TAU< J-l ) 

IF (I .EU. 1 . ANO. J .L'U. NAnGLl) GO To 25 
CALL OZQXD Y ( W ( I ) frtJfMLPHA*TAj(J) fjEL*tO.O»OTtOXb*DYS) 
2b XIb([«J)=XIS(IfJ-l) +UXS/SCALE 
YIbU * J) =YI5<I, J-l ) +UYS/SCALE 
IF <J .EG. NANGLE) YIbtI,J)=U.O 
26 CONTINUE 
28 CONTINUE 
ISONiC=l 

X SONIC ( I SONIC) =XPPIM 
Y SONIC < I SONIC) =YPP1 M 
PSONIC ( ISO'MIC) =FuNH (GAMP, AMP) 

T SONIC (I SONIC) =TalM I SONIC) 

petupn 

End 


SUHPOUTTNF SONPT(K) 

c 

C CONS TPUCT I ON OF SONIC Point 


c 

c 

C 


COMMON X(2,10o)tY(2tl00>*P<2,lU0)*T<2,i00) 

COMMON XSLH(IOU) .YSLpUUO) .AMP< 100) .ThETA (100) .PrtPIi 00) , AMS <X00> , 
1 PHS(IOO) *AbAS5(iUU) tOASuX(lOO) tlSLP 

COMMON X I S ( 21 • 2b ) * YI S < ?1 » 26 ) ♦ w (21 ) t TAu (26) « NbUN I C * N ANGLE 
COMMON X SON I C ( 26 ) ,TS0 nIC( 26> ♦ PSON I C ( 2b ) , T SON I C ( 26 ) , ISONIC 
COMMON XCONt (100) ,YCONt (100) •PCONt (ICO) « TCON l (100) ♦ I CONE 
COMMON XSh.) ( i 00 ) * YSMO ( 1 U J } iO YSUX < 1 00 ) « NSHU 
COMMON XHOY(iOO) «YhDY(1u 0) tOYHUXUOO) * NHL) Y 

COMMON WTFLtHSHP, TOS* rOP i GAMS • GAMP * FUnG » AMP « A(\|GP * APPEF^ASSAPS* 

1 XPPIM, YPPIM* APPIM,UPPlM*CFLt C\/L*CONA,UbUYf DSHD* ENUt 

2 PaM 8 * YPA TIOfPl «CUNVA * CON V P * FO I M ♦ NO A TA •MStOP* 

3 Sul ye t choke * CHANGE * CHAPGt * T YPE * PU I NT t STrtTi 
COMMON PTS(2b) t APE A (2b) , *LE4 k<25) •TITLE (18) *NI TEk* TPY 
DIMENSION C ( lb) f i) (b) t ANb<2) 


C ' 00 lNPT////) llH 1 ’ //i * 0 <,< * dHUNAriLt ' r ° ° oTAI ' NI CONVtROfclMCe IN SUbWOUTINt so 

^0? FORMAT <bX,6HITtR = I J - ax , riHX ( 2 , 1 ) =Fb.S,<*x,bHY (£. 1 > =Fb.S.AX, 

1 BbP ( 2 « 1 ) =Fb.S»4x.dHT (2, I ) o . b , ‘tK , SHTtb T = iPtl<?.S> 

1,1,4 ^///! UHl,// 40 x, 47 dUNAHLt TO Ob T A I N A SOLUTION IN SUHROUTlNt SON 


SUBPOUTINE SONPT 


i r ep=o 

tPPUP=U.0Q0 1 
DO 1J J= 1 ♦ 1 Ou 

IF (P(I,J) .EQ. 0.0) GO TO 12 
CALL FONICS (K t J* aMi (2) ) 

IP ( J . G T . 1 . ANO . A NG ( 2 > . GE • 
Ann ( 1 ) =ang ( 2) 

10 CONTINUE 
12 .VPITE ( 6 t 6 0 4 ) 

call ojtslp 


T ( ^ 1 ) ) GO TO 14 


46 



j 0 0 0 J 7 
0^0040 
C o 0 04 1 
C00042 

0 j 0 0 h ^ 

C u 0 04 7 
000051 
j 0 0 0 r> 3 
0 0 0 0 bb 
0 0 0 0 b 0 
0 u 0 0 62 
00006b 
000067 
0000/0 
C00072 
000074 
00007b 
000077 
GOOlOi 
0001 uJ 
000112 
0 001 1 6 
000120 
000123 
000130 
00013* 
CG01*Q 
000144 
000147 
C 0 0 1 63 
COO 164 
000171 
000173 
00017b 
000202 
000207 
000227 
000234 
000240 
000241 
000243 
C 0 0245 
000246 
000250 
0 0 0251 


00000b 

000006 

00000b 
00000b 
0 0 0 0 0b 
OOOOOo 
00000b 
000006 


OOOOUb 
OOOOUb 
CCQ0Q6 
000006 
00 0020 
000041 


CALL OUTbNP 
CALL EXIT 
1* 1=0 

JM I l\i = J- 1 
DO 1* J= 1,100 

if .t :o. o,o) g o ro 20 

IF U .L r. JMIN) 60 I'D lb 
1 = 1*1 

X ( 1 ♦ I ) =X ( 1 ♦ J) 

V(l*I)=/(l»J) 
p ( 1 ♦ 1 > =p ( 1 1 J) 

T < 1 « I) =T ( 1 * J) 

IF (l .EO. J) Go To 1H 
lb X ( 1 ♦ J) =0.0 
Y ( 1 » Jl =0-0 
P(lf J)=0.0 
T ( 1 * J ) = 0 « 0 
lb Continue 
20 1 T£K= l ♦ ITEM 

CALL CO A OF ( AAVt f YAVF*PAVE t TAvE t 1 * 1 * 1 • 2) 
call coee f (aave* yave«pave* r a vt * c * gamp ) 
od)=c( n 

0 ( 3 > = 1 . 0 / < c < 3 > *c ( 5 ) *c ( 7 > ) 

0(5) =FO I M*C (4 ) *C ( 1 1) / (C ( i A) *C < ib ) ) 

OXOA= < X ( i « 1 ) -X ( i < 2 ) > / < AGG( 1 ) -AIMG < 2 ) ) 

OTOM = < T < 1 • 1) -T < 1 «2) ) / < AUG ( 1 > -ANu (2) > 

X ( 1 * 1 ) =X ( 1 *2) +DAUA* ( r (?* 1) -AuG(2) ) 
Y<l«n=Y(l*2)*U<i)MX<i*l)-X<l*2)) 

T ( 1 * 1 ) =T ( 1 *2) ♦UTiJA* ( T <2, 1 ) - AUG < 2) ) 

H(lil) = (!}(J)#0(l^)-(T(lfn-T(i^))-U(b)*(Y(l,i)-YUi2)))/D(3) 
IF (P(l*ll .GT. PSONlC(IboNIC) ) GO To 12 
CALL FONiCS(K* 1 » ANG( 1 ) ) 

TE ST = Arts ( T <2t 1 ) -ANG(1 ) ) 

IF ( I TER «LT • *5) GO TO 22 
IF <[T£P « £ 0 . 4b) nd P I T E ( 6 * b 0 0 ) 

rtPlTE ( b * b 02 ) I TEP’A < 2* 1) * Y (2, 1) «P<2* 1 ) , ANG< i) * TEST 

if < i ter .to. b 0) call exit 

22 IF ( TEbT .GT. EWrOk) i, 0 TO 2u 
ISONlC=l+ISONIC 
X SON I C ( I SOU I C ) = X < ? i 1 ) 

Y SONIC < I SONIC) =Y (?* 1 ) 

P SONIC < ISONIC) =P ( ?« A ) 

T SONIC ( I SONIC) =T (2*1) 

24 KETUWN 

end 


c 

c 

c 


SJBPOUT INE FONICS <K*J* ANGLE ) 

CONSTRUCTION OF FIRST POINT ALUNG ISuCLInE 


1 


1 

2 

3 


COMMON X < 2 « 1 Q 0 ) * Y ( 2 * 1 0 0 ) # P ( 2 » 1 0 0 ) * T (2*100) 

COMMON XSlP(IOO) •YSLP(iOO) * AMP (100) t T hETA ( lt)0 > *PhP( 1 u 0) t A^S(iOO) 
PhS(IOO) * ASaSS ( 100) * DA SOX (100) . ISLP 
COMMON X I S ( 2 1 • 26 ) *Ylb(2it 2b ) * ri (2i ) * T AJ (26 > * NSON I C * NANGLt 
COMMON X SONIC (2b) *YSO\llC(2b> • PbO<MlC<2b) *TSONlC(2o) * I SONIC 
COMMON XCONt (lOu) * rCOuE (100) * PCONt ( i o 0 ) * TCONt ( iUU) « I CONE 
COMMON XSuO (100) • YbrtD ( 1 1) u ) *0r5 Da ( 1 U0 ) *nS HO 
COMMON XbOY ( 100 ) * YbOY (100) *0 YrtGX ( 1 UU ) « NHU Y 

COMMON wTFL * HSHP • TOS * F0PfGAM;3fOAMP*FuGG*ttMR«ANURfAPRtF »A5SAPb* 
XPPIM, YPRlM*APKlMtOPRlM«CFL*CVL*CONA«OhU Y« DSHD* END* 
PAMrj*YPAT 1 O * P I • CON V A 9 CON VK « )• O 1 1*1 * NO A V A 9 G b T UP 9 
SOLVE 9 ChOkE • Crt anuE 9 CH ARGt 9 TYPE«POlNT * S T At? 

COMMON PTS(2b) * ARE A ( 2-> ) * dLt Ax (2b) ♦ T I I Lt ( 1 6 ) «N11 Ek*TRY 
DIMENSION A(lb)fK(ib) ♦ C ( lb) * i ) ( 6 ) 

REAL MACH.MUAVt 
F ONMU (AM)=ASIN (1.0/AM) 

FUNM (G»Ph) = SORT ( 2. 0/ (G-l, 0 ) * < Prl** < - (o-l • 0 ) /GJ-l.O) ) 

FijNH <G* AM) = ( 1 . 0+ (G-l . 0) /2.0*AM*A M ) ** «■ ( — G/ ( G— i.O) ) 


C 0 0 0 ^ 
vUoO^J 

0 0 0 0 6 J 


0 J 0 0 b 3 

0 0 0 0 b b 

0 0 Q 0 b 7 
C000 74 
00007b 
000101 
coo 111 

000115 

cuoi2u 
000131 
C o 0 1 4 7 
000134 
00015b 
U 0 0 1 7 u 
003172 
C 0 0 1 7 b 
COO 222 
COQ22J 
000224 
0 0023b 
0 u02h2 
000244 
000247 
000254 
000270 
CC0271 


AVF (XI , X2) = < Ai*-X^) /2.0 

. v ) 0 FORMAT ( 1 H i * //40 X * 4HHbON I C POINT (AH) L 1 1 b OUTblUE RANGE OF 1SOCLI 
iMFb//) 

b')2 f ( / /R4A * 1 bHX I 3 ( nbON 1 L * K ) = F 4 « b * 1 bX * 4ri A K = F ri . 5 * i 5* » 1 OHM b ( 1 * K 

1) =Fb.b//) 

C 

C SUrt ROUT INF F ON I C b 

c; 

T (2* 1 ) =TAiJ(K) 

P ( ? f 1 ) =FUNP (1‘iAMP * AMR) 

M ACH = F UNM ( G AMP * P ( 1 * J ) ) 

MbONIC=NbOMlC- l 

r Avt= ave ( t ( 2 * 1 ) * i ( i * J) ) 

ojaVE=AVE ( F UNMU ( aMR) vFUiNMU (MaCh) ) 

0(2) =T AM { r AVE-MUAVt. > 

OO 10 1=1 »MSOWlC 

ijYOX= ( Y1 5 ( I ♦ 1 *K) -Y 13 ( I »M )/(XIblI+l*K)-XIb(I*K) ) 

X(2»l)=(YU*J)-YlS(I*K)-0(2)*X(i*J)+uYuX*xIblI*K))/(DYDA-D(2)) 

Y(2*n=Y(l*J)+Dl2)MX<?*i)-X(l*J)) 

IF ( K. , FO. MANGLE) GO TO i2 

IF (A (2*1) .(if-. AlS(l*l»K) .AND. A ( 2 * 1 ) , L b • Xlb(I*K)) GO TO 12 

10 CONTINUE 

RRITE (btbOO) 

WRITE (b*bQ2) AIb(NbUNlC*K) *A(2*i> *XIS<i*K) 

CALL OOTS'MP 
CALL EXIT 

12 CALL COAVE ( XAvE* YAvt*PAVE*TAvE* 1 * J*2* 1) 

Call COEFF (XAVt*YAVE*RAVE* TAy/E*L*GAMH) 

O ( 2 > =C ( 2 ) 

O(4)=1.0/(C(4)^C(b)*C(rt)) 

O(b) =FUI m*C ( 101 *C< 12) / (C ( 14) *C < ib) ) 

ANGLE = T ( 1 • J) *0 (4) » (P < 2* 1 ) -P ( 1 * J) ) ♦ L) ( b ) * ( Y (2*1 ) - Y ( 1 * J ) ) 

14 return 
E\io 


000003 

C000U3 

C000U3 
GO 0 0U3 
000003 
GC0003 
OGQQOJ 
000003 


000003 
G 0 0 0 U 3 


G00003 

-j 0 0 0 0 3 
300003 
C 0 0 0 1 2 

0 0 0 0 12 

C 0 0 0 1 2 
300012 


bOO 

b0 2 


"j 0 4 
"» 0 o 


SUrtROU TINE HOUNO(J) 

CENTERLINE OR SOLID HUUnUAkY CALCULATION 
COMMON X(2*iOO)iY(2*iOU)*R(2*luO)*T(2,iOO> 

COMMON XbLP(lOO) * YSLP (100) * AMR l 1 00) * ThETA ( 100) *PhP(iO0> *AMS<100) ♦ 

1 PhS( 100) * ASAbb< 100) tDASUA < 1 0 0 ) * I SLP 

COMMON X I S ( 2 1 * 2b ) *Ylb(21*2b> * w ( 2 1 ) * T AU < 2b ) * NbUN I C * N ANGLE 
COMMON X SONIC (2b) * Y SONIC (2b) , PbONlC < 2b) * T SUN I C ( 2b ) * I SONIC 
COMMON XCONF (100) * Y CONE < i U 0 ) * PCONt (100) * TCUNL ( A 00 ) * I CONE 
COMMON XbHi) ( 100 ) * Y b H O ( i Ul) ) * OYSuX ( 1 00 ) *NShu 
COMMON XBOY(lOO) » YbO Y (1U0) *OYRUX(iOO) * NHD Y 

COMMON W T F L * HSHP * T Ob * ruP*GAMb*GAMP*F UnG*A nR*A nor *APKEF *ASSAPS* 

1 XPR I M f YPk I M * APR l M * l)PR I M * CF L * C VL * CONA * L)HL)T * OShO * END * 

2 PAMHfYRATlOfPI * CUN VA * CON V R * E 01 M * NO A T A * Nb TOP * 

3 SOLVE* CHOKt. * CHANGE* CHARGE* T Y PE * POI NT * S TAG 
COMMON P T b ( 2b ) * AhEA ( 2b ) * VLE AK ( 2b ) * I ITLE(ib) *NI IER*TRY 
COMMUN/HNL YR/ XSUM ( iOC ) *YSuM( 100) * OLLbtiU ( 1 0 0 ) *ThETAS<lOG)* 

1 CF SHO ( 1 00 ) * XCNE (100) * YCnE ( i 00 ) * UtLCNt l 1 0 0 ) *lh£TACU0U) * 

2 CFCNt(100)*KEYRRMf POP *AOP*VOP*RLYStC*POb*AOS*VOS*PEX*XSCALi' 
COMMON/CPLUT/ I PLOT *XSTARl *YSrART * XSH aN * YSP AN * bC ALE * SPAN* AX I b, 

1 XORGn * YORGN* XbHF X * YSHF T * KKK ( 14 ) ♦ PP ( i<+ ) * xUO*n ( 1 00 ) * Y ACROS (100) 

01 MENS I ON C ( ib) *0 (b) 

AVE(Xl,X2) = (Xi*-X^)/2.b 

FORMAT ( IhI *// 40x*47HuNAbLE TO UhTAIn CONVERGENCE IN SUbROUTlNE LI 
IMF////) 

FORMAT (bX*bHlTEK = I3*4X*rjHX(?*J) =EH,b*4X*bMf(2*J) = Fts.b*4X» 

1 4nP ( 2 * J ) = FH.5*‘+x *bHT { 2* J) =F A • b *hX « bH TF bT =l^Ll2.b) 

FORMAT (IrX* 7 F 12. S) 
format ( 1 4 J ) 
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c 

C 

c 


SUbROU T INK HOUNL) 



v G u 0 1 2 
0 00 0 1 J 
2C0G lb 
0 0 0 0 2 1 
000023 

■j 0 0 0 J4 

000036 
OG0O*+O 
000042 
000042 
000043 
C 0 0 0 46 
0 0 0 0 4 J 
000063 
G 0 0 0 b7 
C 0 0 0 6 1 
000072 
00007b 

000 1 Ub 
000 1 1 2 

0001 14 
0001 17 
0 0 012*+ 
000140 
000164 
0 0 0 1 b3 
000167 
000173 
000177 
000212 
000216 
000220 
000226 
0 0 Q2bb 
000262 
000263 
000270 
000274 
000276 
000304 
000306 


i re_K=o 

EPPOP=0. 000 1 
X (2 + J) = X ( 1 * J) 

P (2, J) =P< 1 , J) 

IF (ICONt .HU. i .AND. NHuY . 3 f . U) CaLL CNL Y P ( DO SOX ) 

I CONE = I CONE + 1 

OtLCNt < I CONE ) =UtLCNE t ICONt-i ) 

IF (NHf)Y . 6 T . 0) f-0 TO if) 

ODSOX=0. 0 
DELCNE ( I CONE) =0.0 
10 ITEk=l+ITtk 
PPEF=P(2f J) 

CALL F I NO ( A <2* J) , YCiMt ( ICONt ) ,DYC!)X, i .0) 

TCNE = ArtS ( A T A N ( U Y C O A ) > 
dypda=dycda+dosda 

Y l?i J) = Y C Nh ( I CONE) + l)E LCNE (ICONt ) /COS ( TCNt ) 
r (2, J) = A T AN ( L) YPL) A ) 

CALL C O A V t (XAvt + YAVt^AVh, T A V E + 1 , J * 2 » J ) 

CALL COEFF (Xav£,YAVE+pAVE,TAVE*C*CAMP> 

O (2) =C (?) 

[)(4)=1.0/<C<4>*C(6)#C(rt> ) 

O (6) =FOI M*C ( 10 ) *C ( 12 > / ( C ( 14) *C ( 16) J 

X (2, J) = ( Y ( 1 , J) -Y (?, J) HI (2) *X ( 1 * J) +uYPOa*X <2, J) ) / (OYPOX-U ( 2) ) 
P(2*J) = (0( t +)*P(l,J)'* , T ( 2 » J ) -T (1 + J) -0 ( 6 ) M Y ( 2 * J ) - Y ( 1 , J ) ) )/0(*+) 
XCONE ( I CONE) =X (2. J) -QELCNE ( I CONc ) ^61 N (TCNt) 

CALL FIND ( XCONE ( ICuNE) * YCONE ( ICONt ) .Of COX , 1 . U ) 

PCONt ( ICONE) =P <2, J) 

I CONE ( I CONE )=ATAr)(L)YCi)A) 

IF (NBDY • OT . 0 .AND. kEYPkM . b I . 0.0) CALL CNL Yk ( ODSDX ) 

12 TFST=ABS(P(2, J) -PkEF) 

IF (ITEP .LT. *+5) CO TO i A- 
IF (ITEk • EO • 46) wKlIE (6,6U0) 

WPlTt (6,602) ITtN»X(2,J) , Y ( 2 , J ) ,P(2,J) »T 1 2 , J ) , T t s T 
IF (ITEP .LT. <*b) CO TO 14 
CALL OUTSLP 

IF (CHOKt .EO. -1.0) CALL OOTLYP 

if ( i plot .eq. n call plotl 
call exit 

14 IF (TEST .6T. EkkOk#P < 2, J) ) CO TO 10 
16 PETUPN 
END 


000003 

000003 

C 0 0 0 0 3 
000003 
C 0 0 0 0 3 
000003 
000003 
000003 


000003 
0 0 0 0 O 3 
000003 
0000 12 

0000 12 


C 

C 

C 


SUBROUTINE FIELLMJ) 


FIELD POINT CALCULATION 


COMMON X ( 2 , 1 0 0 > , Y ( 2 + 1 0 0 ) ,*->(2,100) ,T (2,100) 

COMMON XSLP ( 100 ) , YSLP ( 1 00 ) , AMP ( 10 0) * CHET A ( i ()u ) ,PhP (100) , AMS ( 1 00) , 
1 PHS (100) , AS ASS (100) , OASUX ( 1 0 0 ) , I SL P 

COMMON XIS(21 ,26) , YIS<21 ,?b) ,W (21 ) ,TAU(26) , NSUn I C . N ANOLt 
COMMON X SON I C ( 26 ) , Y SONIC (2b) ,PS0N1C<26) ,TbONiC(2o) , I SONIC 
COMMON XCONE (100) *YCONc (10U) .PCONt(lJO) , TCONt(lOO) *ICONc: 

COMMON XSHD(IOO) *YSHD<100) ,OYSUX(iOU) , NSHf ) 

COMMON XBOY (100) , YoOY ( i 0 0 ) tOYMUX ( l 00 ) , N6U Y 

COMMON WtFL * HSHP , T OS * TOP , OA M S , C AMP , t UNO , A Mk , A ncP , APPEF , A SS AP S , 


1 XPPIM, YPKIM, APPIM,OPPIM,CT L + CYL,C0NA,UHDY ,OSHU,ENU, 

2 PAM8 , YPATI O, PI , CON V A , CONVk , T O I M, NO A T A , NbTuP « 

3 SOL YE, CHOKE + CHANCEfCHAPCt* T YPt , PO I Nl' , b T mu 
COMMON PTS(26) , A^E A (26) , RLEAK ( 26 ) , T I I LE ( 1 H ) ,N I) tk , Tk Y 
DIMENSION A < 16) ,B < 16) ,0(6) 

AVE(Xl,X2)=(Xl+X2)/2.0 

600 FORMAT < lrtl ,//40X,4dHUNAHLt TO OrtTAlN CONVE H;>t t+Ct IN SUtJPOuTlNE FI 
1 ELD//// ) 

602 FORMAT ( 8X * SH I TEk = I 3 , 4 X , 6HX ( 2 , J ) =F 6 . b , 4 X « BH Y ( 2 + J ) = FH.b,<+X, 
18HP(2,J> =F8.b*4X,6riT (2, J) =FH . S « 4 A , dm TE S T =iPtl2.b) 


C 


0G0012 

OOQOIh 

000015 

000016 

000025 

000032 

000037 

000044 

000046 

000050 

000060 

000064 

000075 

000101 

000103 

000104 

000110 

000113 

000117 

000124 

000143 

000152 

000202 

000214 

000220 

000222 

000230 

000260 

000265 

000273 

000273 


0G00O3 

000003 

000003 

000003 

000003 

000003 

000003 

CQ0003 


000003 

000003 

000003 

000020 

000026 

000026 

00002b 


000026 

000030 

000031 


C SUBROUTINE F IELl) 

C 

K = J-1 
I TER=0 

ERROR=0.0001 

X(2*J)=AVE(X<lfJ) a (2*K> ) 

Y(?*J)=AVE(Y(1*J) * Y ( 2 * K ) ) 

P(2*J)=AVE<P<1*J)*P(2*K)) 
r (2* J) =A (T < 1 * J) * T (2*K) ) 

10 I TER = 1 ♦ I TER 
PREF=P ( 2 * J ) 

CALL COAVE (XAVEfYAVt * PAVE* T AYE *2*K *2* J) 

CALL COEFF ( X A Vt * Y A VE * P A VE * T A Yt * A * G AMP > 

CALL COAVEUAVE* YAVE*PAVt* TAYt* 1 * J*2* J> 

CALL COEFF (XAVfc* Y A VE * PA VE * T AVE t B * G AMP ) 

0 C 1 > = A ( 1 ) 

D ( 2 > =8 { 2 ) 

D(3)=1.0/(A(3)*A<5)*A<7)) 

0 ( 4 ) =1 .0/ (*(<♦) *5 (6) (d) ) 

D (6) =FDIM*A<9) *A ( 1 1) / (A ( 13) *A ( 15) ) 

U (6) =FDIM*B (10) *8 ( 12) /<8< 14 ) *6< 16) ) 

X(2tJ)s(Y(ltJ)-Y(2tK)*0(n*X(2*K)-D(2)*X(l.J))/(U(l)-0(2)J 

Y(2*J)=Y(1*J)*U<2)*U(2*J)-X<1*J)) 

P(2*J)s(0U)*P(2,K)*()(4)*P{l,J)Ml2»K)-T(l»J)-u(5)*(Y(2*J)-Y(2»M) 
1 -0(6)MY(2*J)-Y(1*J) ) ) / t D ( 3 ) + U ( 4 ) ) 

T ( 2* J) =T <i*J)*D<4)*(P(2*J)-P(l*J) ) ♦ U(6)*(Y(2*J)— Y ( 1 * J ) ) 
TEST=ABS(PPEF-P (2* J) ) 


IF 

(ITER 

.LT. 

05) GO TO 12 

IF 

(ITER 

.EG. 

95) WRITE (6*600) 

WRITE (6* 

602) 

ITfcR*X(2*J) *Y(2*J) *P(2*J) *T (2*J) *TEST 

IF 

(ITER 

.EQ. 

100) CALL EXIT 

12 IF 

( TEST 

• GT . 

ERROR*P (2* J) ) GO TO 10 


RETURN 

END 


SUBROUTINE SLIP(J) 

C 

C SLIPLINE CALCULATION 

c 

COMMON A<2*100)*Y(2*100)*P(2,iU0)*T<2,lOG) 

COMMON XSLP(IOO) *YSLP(lOQ> * AMP (100) *ThETA<100) ♦PhP(IOO) * AMS (100) * 

1 PHS< 100) * AS ASS ( 100) * OASDA (100) * ISLP 

COMMON XIS(21*26) «YIS(21*2b) * W < 2 1 ) * T AU ( 26 ) * NSON I C * N ANGLE 
COMMON XSONIC (26) * YSONIC (26) * PSONIC (26) tTSONIC (2b) ♦ I SONIC 
COMMON XCONE (100) , YCONE(IOO) ,PCONE(iOO> *TCONt( mo> , I CONE 
COMMON XSHD (10 0) * YSHD ( iUO) tOYSUX < 100) * NSH!) 

COMMON Xbf)Y(lOO) tYbOY(iOO) *OYBUX(IOO) *NBUY 

COMMON WTFL »HSHP *T0S*T0P*6AMb * 0 AMP * FUNG ♦ AMk * ANGR « APREF * ASS APS* 

1 XPR1M* YPRIM, APWlM,l)PRIM*CFL*CvL*CONA*UbUY*DSHD*ENO, 

2 PAMB * YRA T 10* PI * CON V A * CON VP * FD I M * NO AT A * NS TOP * 

3 SOL YE * CHOKE * CHANGE * CHARGE * T YPE * PO I NT * ST AG 
COMMON PTS ( 25 ) *AkEA(2S) *wlEAk (25) * TITLE (lb) *NI IER*TRY 
DIMENSION C ( 1 6 ) *D<6) 

FUNP (GiAM)s(l.O* (G-l .0) /2.0*AM*AM> ** (-G/ (G-i . 0) ) 
AVE(Xl*X2)=(Xi*X2)/2.0 

bOO FORMAT ( iHl * //40X*^7HUNABLE 10 OBTAIN CON VERGtNCL IN SUBROUTINE SL 
HP////) 

o02 FORMAT («X*6HITER = I 3 * 4X * bt-iA ( 2 * J ) =F8 . 5 * 4X * bli Y ( 2 ♦ J ) =FB.5*4X* 

1 9HP ( 2 * J) =Fb # 5*4X*BHT (2* J) =Fb . S * 4X , bhTEST =1PE12.5) 
b 0 4 FORMAT ( 1 H J ) 

c 

C SUriKOUT I NF SLIP 

C 

K = J- 1 
I TEK=0 

ERROk=O.UOO 1 


50 



000032 

000042 

00004b 

G0Q064 

000073 

000101 

000107 

000114 

000115 

000117 

000122 

000124 

000134 

000140 

000142 

000145 

000152 

000155 

000172 

000201 

000202 

000205 

000207 

000225 

000240 

000241 

000243 

000244 

000247 

000252 

000262 

000273 

000302 

000305 

000314 

000330 

000333 

000343 

000347 

000352 

000353 

000355 

000355 

000361 

000364 

000367 

000374 

000426 

000460 

000462 

000465 

000472 

000476 

000500 

000504 

000507 

000513 

000514 


CALL COEFF (X(?*K)*Y(2*K>*P(2*K)*T12*K> *C*GAMP> 

JYDX=TAM(f (1*K) ) 

10 X(2*J)=(Y<2*K)-Y(1*K) +uYOX*X <l*K)-C(i)*X(2*K)) / (OYDA-C ( 1) ) 
Y(2*J)=Y(2*K)*C<t)*(X<2*J)-*(2*K>) 

P(2*J)=AVE( p U*K) * P ( 2 * K ) ) 
r< 2 »J)=AVP<T(l*K) ♦ T (?»K) > 

IF (P(?.J> • GE . H5HP) P ( 2 * J ) =PHP( I SLP - 1 ) 

CALL STOPE(J) 

12 ITE*=1*ITEP 
YREF = Y ( 2 * J ) 

PWEE = P ( 2 * J ) 

1 4 CALL C0AVE(XAYE*YAVE* p AVE*TA\/E*2*J*2*K) 

CALL COEFF (XAVt* YAVE*PA YE* T AYE *C*oAMH) 

0(1)=C(1) 

0(3)=1.0/(C(3)*C(5)*C(7) ) 

D (5) =FD I M»C (9) *C ( 1 1 ) / (C ( 1 3) *C ( 16) ) 

IF (CHAMGE .tO, 1.0) GO TO 16 

X (2* J) = ( Y (2*K) -Y l 1 * K ) +UYOX*X (1*K)-U(1)*X(2*K) ) / (DYDX-0 (1 ) ) 
Y(2*J)=Y(2fK)+0(l)*(X(2fJ)-X(2fK)) 

CALL FLOw(J) 

IF (POINT .EQ. -1.0) GO TO 24 
IF (CHANGE .EQ. 1.0) GO TO 1 6 

T(2*J)=T(?*K)-D(3)*(P(2*J)-P(2*K))-0(5>*(Y(2*J>-Y(2*K)> 
ft YD A = AYE (TAN (T (1 ) ) * T AN ( T (2.J) ) ) 

CALL STOWE ( J) 

GO TO 20 
16 CALL FLOW(J) 

IF (POINT * EQ • - l • 0 ) GO TO 24 
18 Y(2*J)=Y5LP<I SLP ) 

IF (ABS( YWEF-Y (2, J) ) .LE. ERROK*Y ( 2 * J ) ) Y(2*J)-YREE 
X(2*J)=X(2*K)*(Y(?* J)-Y(2.K> > /U ( 1 ) 

DYDX= ( Y (?iJ)-Y(l*K) )/(X(2*J)-X(i*K) ) 

DZL)X = T AN (T ( 1 1 K ) ) 

T (2tJ)-ATAN(AVE(DYDX*OZOX) ) 

P(2*J)=<U(3)*P<?*K)-<T(2*J)-T(2*M )-U(5)*<Y<2*J)-Y(2*K) ) )/D(3) 
PEST=P(2* J)/HSHP 

IF (PEST .GT. 0.0) PEST=PEST <H * (- (GAM5-1 • 0 > /GAMS) -1 • 0 
IF (PEST .GT. 0.0) CALL STORt(J) 

IF (PEST .GT. 0.0) GO TO 20 
POINT=-l .0 
ASASS( ISLP) =0.5 
GO TO 24 

20 TESTP=AtfS(P(2tJ)-PKEF) 

TEST Y = ABb ( Y ( 2 * J ) -YkEF) 

IF (ITER .LT. 95) GO TO 22 
IF (ITER .EQ. 95) WRITE (6*600) 

IF ( wTFL . EQ. 0.0) WRITE (6*b02) I T ER * X < 2 * J ) * Y ( 2 * J ) * P ( 2 * J ) * 
j T (2* J) * TESTY 

IF (WTFL .GT. O.G) WRITE (6*602) I TER * X < 2 * J) * Y ( 2 * J ) * P ( 2 ♦ J ) * 

{ T(2*J)*TESTP 

IF (ITER «£Q. 100) GO TO 23 

22 IF (ITER .LT. i) GO TO 12 

IF (TESTP .GT. tWWUR^P (2* J> > GU TO 12 
IF (TESTY .GT. ERROR* V ( 2 * J > ) GU TO 12 

23 IF (STAG .GE. 0.0) GO TO 24 

CALL F I NO (XSLP(ISLP) * YP * D YPOX * 2 . 0 ) 

DELTA=YP-YSLP(1SLP> 

IF (DELTA .LE. 0.0) POINT=-1.0 

24 RETURN 
END 


C 

c 

c 

000003 

000003 


SUBROUTINE SLIO(J) 


CALCULATION OF WaKE tFFtCT ON PLOW FIELD 


COMMON 

COMMON 


X(P*100)*r(2*100)*P(2*100)*T<2*100) 
XSL p < 100> * Y SLP ( 100) * AMP (100) * THETA ( IOO) 


* RHP (100) * AMS (IOO) * 
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C 00003 
C 0 0003 
000003 
GOOOU3 
000003 
000003 


000003 
000003 
00002* 
0000*0 
COO 0*6 

0000*6 

0000*6 

0000*6 

0 0 0 0*6 
0000*6 
0000*7 
G 0 005 1 
QO 006* 
000063 
000072 
C 000 7* 
C 00 0 75 
000077 
000100 
COO 1 U* 
C 0 0 1 06 
000110 
000111 
000116 
000125 
000130 
000133 
0001*0 
0001*2 
C 0 0 1 50 
000152 
000157 
000163 
000165 
000167 
000170 
000172 
000177 
000206 
000211 
000216 
00023* 
0002*1 
0002*6 
000250 
00025* 
000260 
000271 
000272 
000275 
C00303 
00030* 
000306 
000310 
00031 1 
C 0 0 3 1 * 
000316 
000321 
000323 


1 PHS ( i 00 ) *aSaSS(100) ,L)a5iJA(100) * I SLP 

COMMON X I S < 2 I , 26) , Y I b < 2 1 , 26 ) , w ( 2 1 ) ♦ T AU (26 ) * NSON I C , N ANGLE 
COMMON X b 0 N I C (26) *YSONlC(2b) ,PSUNIC(2b) ,TSONIC(2b) , I SON I C 
COMMON XCONF <1001 , YCOnE ( 100) * PCONt ( 100 ) , TCONt (100) , I CONE 
COMMON XSHO(IOO) . Y 560(100) »Orsux < 100) , NSHU 
COMMON XHOYUOO) • Y hU Y ( 1 0 0 ) * 0Y60X ( i U 0 ) « NdO Y 

COMMON WTFL *HSHH * 7 Ob * T Op * 6 A M b * G * M P , F UNO ,AMR,AnoP, APPEF ,ASSAPS, 

1 XPPIM, YPPIM, APPIM.UPPI M* CFL ,CvL, CONA » UbD Y t DSHD , END , 

2 PAMH,YPATlO,Pl , CON V A , CON VP , Fu 1 M , NO AT a * N b TOP * 

3 SOLVE* CHOk t tCr) ANGE *CHAP0t * T YPfc. * PO I NT * bT AG 
COMMON PTb ( 2b> * APE A ( 25 ) * WLE Aft (2 d) , T I TLE ( i 6 ) *nH EP * TPY 
f UNM (G, PH > =SOPT <2. 0/ (G-l . 0 ) * (PH** l - ( 5- X . 0 ) /G ) - 1 . 0 ) ) 

F JNP ( G* AM ) = ( 1 . 0 ♦ ( G- 1 . O ) /2 • 0* AM* AM ) ** ( -G/ < G-i . 0 ) ) 

A VE (XI *X2) = <Xi*A2) /2. 0 

DUO F OPM A T ( 1 Ml * //*3X . *7HUNA6LE TO UhTaIn CONVEPbt NCE IN SUbPOUTlNE SL 
1IO////) 

o02 FOPMAT ( 2 2 X , 6 H I TER = 1 b,*x , 7 h ASA bS =Fd . 5 , *X * bHwbEC =Fb.5,*x» 

1 6H0ELW =Fb.b**X,6HTEST =iPE12,b) 

o0* FOPMAT ( jHl t//2Hx* 12A6*///) 

606 FOPMAT (22X»6HI5lP = I 6 * *X . 6hxSlH =F 6 . 6 * *X * bHrfSEC =F0.5,*X, 

1 6HWMIX =)■ H.5**X,dHAS$APS =Fd.5) 

608 FORMAT (IhJ) 

I TEP = 0 

ERPOP=0 • 0001 

IF (ISLP .EQ. 2) NPOInT=0 

IF ( SOLVE .EQ. 0,0 ,OP. STAG .EG. -1.0) GO TU 18 
IF (CHAPGE .EQ. 1.0 .OR. CHANGE .EG. l.O) GO TO lb 
AMSAVE=AMP( IbLP) 

PSAVE=PHP< ISLP) 

TSAVE = THETA < ISLP) 

AMS ( I SLP) = AMb ( ISLP-1 ) 

CALL AJAX ( XP, YP* ALPHA, ASECtOADA) 

10 I TER= I ♦ I TER 

ASAVE = ASASSUSLP) 

wsa ve=wsec 

IF (ITER .to. 2) ASASb ( I SLP) =WSEC/w ITL^ASASS ( ISLP) 

IF (ITER .GT. 2) ASAbS ( 1 SLP ) = AbAbb ( I bLP ) +DAUW* ( WTFL-WSEC ) 

IF ( ASASS ( I SLP ) . L T • 1.0) GO TO lb 

CALL ASTAP(AMb(IbLP)»ASASb(I bLP) *bAMs) 

PHS ( ISLP) =FUNP{ GAMS, AMS (ISLP)) 

PHP ( ISLP) = PHS ( ISLP) *HSHP 

AMP ( I SLP) =FUNM (GAMHf P hP ( I SLP ) ) 

CALL WAKE <i)ELW*DELA) 

A SPPEF = ( ASEC-OtLA ) /APRIM^APPtF/ASAsbtlSLP) 

ws=i . o/fung#hshp*asppef 

WSEC = WS + L>EL W 
WRATIO=WS/wTFL 
WMI X=OELw/wTFL 
TEST=ABS(WbEC-WTFL) 

IF ( OEL A/ASEC .GE. 0.d0) GO TO 16 

IF (ITER .GT. I) UAOw= ( AbA VE-AbASS ( I SLP ) ) / ( wSA Vt-WSEC ) 
fF (ITER .LT. *5 ) GO TO 12 
IF (ITEP • E Q • *6) WRITE ( b * 6 U 0 ) 

WRITE ( 6 , b 0 2 ) IT ftp, ASASb ( ISLP) * W SEC, L)ELW, TEST 
IF (ITEP .EG. DO) CALL EXIT 
12 IF (TEST .GT. O.IO^EPPOP) GO TO 1U 
AS A vE = ASASS (ISLP) 

IF ( AREA ( 1 ) .LT. 1.20) A S A VE= ARE A ( N I TEP ) 

IF (ASPPEF .GT. ASSAPS) GO TO 16 

IF ( ASA VE .GT. AkFA(NITER) .ANO. APEA(NITER) .LT. 1.20) GO TO 16 

assaps=aspref 

P ( 2* J) =PHP ( ISLP) 

T (2 * J) =PMEP ( AMS A vt »TSAVE*APP< IbLP) ♦ GAMP ) 

i* Call stope ( j) 
go TO 16 
16 CHAPGE=1.0 

call slipcj) 

10 IF (POINT .NE. -1.0) GO TO 22 
IF (STAG .EQ. 1.0) GO TO 2U 
IF (NPOINT . LE . 1) GO TO 2* 

20 STAG=2.0 
POINf=i.O 
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coo324 
00032b 
C 0 0 330 
0 C 0330 
00033b 
000342 
000344 
00034b 
00034b 

000350 
000 3b2 
000354 
00035b 
0 0 0 3b0 
000371 
C 0 040 3 
000414 
000427 
000443 
000450 
0 004b L 
000471 
000504 
000505 


ISLP=ISLH-l 

HbHp=p r s ( ni ter > 

GO TO 24 

22 IF ( aS ASS ( I SLP ) . LE • 1.05) NPOl NT = 1 *NPO I NT 

CALL AJAX(XP.YP.ALPHA.AbEC.OASUX(ISLH) ) 

OAL)X = -UO 
POINT=0. 0 
OELA=0.0 

IF ( WTFL .£0, 0.0) GO Tu 21 
IF (IbLP .LT. 3) GU TO 24 
OfcLP=ASASS ( I 5LP) - AS A 5s (I SLR- i ) 

OELO = ASA 5S < I SLP- t ) * As ASS ( I SLP-2) 

L)£LA = -APS<OtLP> 

IF (OELP . >T. 0.0 • ANO • OELO .GT. 0.0) DELA=OtLP 
21 IF ( DASOX { I SLP > .GT. 0.0 .AMO. UASOX ( I SLP- 1 ) .uT. 0.0) 0AUX=1.0 

IF U)ELA .3 E. 0.0 .AMU. OAUA .GT. 0.0) POIMT=1.0 
IF (TRY .EU. 1.0 .ANO. ISLP .LL. NOATA) POIMT=0.0 
IF <XSL P <ISLP) .LT. EnO .ANO. APEA(MITEK) .lE. 1.05) POlNT=0.0 
IF ( X SLP < ISLP) .Gt. EnO) POINT = 1.0 
IF (SOLVE .LE. 1.0 .Ok. STAG .tu. l.C) GO TO 24 
IF (OEL A .GT. 0.0 .ANO. OAOX .GT. 0.0) POINT=i.O 
IF (TRY * EO • 1.0 .AMO. ISLP .LE. NOATA) POINf=0.0 

24 RETURN 
EMO 


000003 

000003 

C 000 03 
000003 
000003 
000003 
000003 
000003 


000003 

C00003 

000034 

C00054 

000070 

00007b 

000076 

000076 

000100 

000101 

000102 

000104 

00010b 

000111 

000113 

000115 

000117 

000124 

000125 

000127 

000130 

000132 

000144 

00014b 


SUBROUTINE FLOw(J) 

CALCULATION OF FLOW CONUITIOnS ALONG THE SLIPLINE 
COMMON X (2* 100) f Y < 2 * i 0 0 ) .P<2. 1U0) *T (2.100) 

COMMON XSLP(iOO) .YSLP(IOU) .AMP (100) . ThETA (100) .PHP(iOO) .AMS (100) ♦ 
1 PHS(iOO) .ASASS(IOQ) .O aSUX ( 100) . ISLP 

COMMON XIS(21.2b) . Y I 5 ( 2 1 . 26 ) . W (2 1 ) . T AU (26 ) . NSONl C .MANGLE 
COMMON X SONIC (26) . Y SONIC ( 2b) .PSUNIC (2b) . TSUN I C (2b) . I SONIC 
COMMON XCONE ( 100 ) . YCOnE ( 100) .PCONE ( lOO ) . TCONt ( 100 ) . I CONE 
COMMON XbHO (100) . YSHO ( 100 ) .0Y5DX ( iUO ) . N S H L) 

COMMON XrtDY (100) . YbUY ( 100 ) .DYHDA (100) .NbDY 

COMMON WTFL.HSHP.TOS. T OP * GAMS . GAMP , F U|\|G . AMR • ANbR . APREF .ASS APS. 

1 XPPIM. YPPIM, APPIM.OPRlM.CFL.CVLtCONA.UHOY .DSHD. END. 

2 PAMH. YP AT 10. PI • CONV A . CONVK * F O I M . NO A T A . NS TOP . 

3 SOL V£. CHO*E. CHANGE.CHAPGE.TYPt. POINT ♦ bT AG 
COMMON PT S ( 25 ) .A PE A (2b) . wLEAK (25) .TITLE (1H) . Nil Eh. TRY 

FONA (G. AM) = < <G*i.O) /2.0)**<-<G*1.0> / <2.0* (G-l.UU ) * A . 0/AM* ( 1 • O ♦ 

1 <G-1.0)/2.G*AM*AM)**( <G*1.O)/<2.O*<G-1.0) ) > 

FUNM ( G. PH) = SQPT ( 2. 0/(G- 1.0) * (PH** < - <0-1 . 0 ) /G> -A . 0 ) ) 

F UNP ( G * AM ) = ( 1.0* (G-i. 01/2.0 °AM* AM) **<-&/ <6-1 . 0 ) ) 

A VE (Xl.X2)=(Xl*X2) /2.J 

600 FORMAT (1H1.//4QX .47 HUN ABLE TO ObTAIN CONVERGENCE IN SUBROUTINE 
10W////) 

b02 FORMAT ( 1 H J ) 

I = I SLP 
I TER = 0 
ATOL=l .OS 
EPPOK=0 .0001 
ASAbS ( I ) =1 . 0 
IF (ISLP .EG, 

IF (STAG . GE « 

P(2f J)=HSHP 
PHP( I ) =HSHP 

AMP < I ) =FUNM (GAMP.PHP ( I ) ) 

AMS ( I ) =0.0 
PHSU)=1.0 
ASASS ( I ) =500.0 
CALL SHLYP(OOSL)X) 

IF (I .EO. 1) THfcTA(I)=PMEP(AMP.ANGP.AMP(I) .GAMP) 

GO TO 20 
10 I TEP= 1 * I TFP 


Fl 


1) AMIN=10.0 

0.0) GO TO 10 


0 0 0 14 7 
QUO lbl 
0 0 0 1 6 u 
000163 

0 0 0 1 6 b 

0001 73 
00017b 
00030b 
000210 
G 0 02 1 2 
00021b 
00022b 
000231 
C 0 0242 
000247 
0C026 h 
C 0 026 7 
000274 
000302 
000310 
00031b 
000320 
000323 
C 0 0330 
000332 
000340 
000343 
0 0 0 346 
0 0 0 3b2 

000334 

000360 

000361 

000367 

000370 

000375 

000406 

000411 

000412 

000416 

000417 


A:>AVE = ASASS<I) 

IF (I .EO. 1) TMc 1 A ( I ) = PMlR (AMKt ANGRt AMP ( I) »uAMPj 
IF ( CH A sjGr, . F.U. 1.0) 60 TO 12 
CALL AJAX < AP* YP 9 ALPHA, AbtCtOAOx) 

A S A S b ( I ) = A SEC / A P k ] M * A P kE F / A S S A P S 
IF (I .EO. 1) GO TU in 

IF (ASASS(I) .l»T. 1 • 0 b .AND. AbASS(I-l) .GT. l.u/) GO TO 1 <+ 

AMS ( I ) =AMS ( I - i ) 

12 CHAMGE=l.O 

CALL A JAX ( AP » YP * 4LHHA t Ai»EC* OaDA ) 

AbAbb(I)=A\/fc ( A SA^S C I — 1 > 9 F UNA ( G AH 5 , AMS ( I ) ) ) 

Abt C = ASASb ( I ) *APu< ] m/APkEF* ASbAPS 
YSLP ( I > =YP»yP**FOIM-A5EC*COS ( ALPHA) 

IF (YSLP(I) • LE « 0,0) A bASS ( I ) =0 • b 

IF ( Y SLP < I ) «GT. 0.0 .UNO. Fl)IM .EG. 1,0) Y SLP < I ) =SQRT ( Y SLP ( I > ) 
Y ( 2 » J) = YSL p ( I ) 

02DX=TAN (T ( 1 t J-l ) ) 

DYDX=(Y ( 2 , J) -Y < i » J-i , l/U(?,J)-x(i,J-D) 
THETA(I)=ArttN(AVt<UY0X9L)ZI)X) ) 

IF (ASASS(I) ,GT, 1.0) GO TO 16 
14 IF (ASASS(I) ,LT. 1.0) GO TO 20 
CALL ASTAP (AMS (I) 9 ASASS ( I ) , GAMS ) 

PH S(I)=FUNP(G AMS, AMS(I) ) 

PHP(I)=PHS(1)*HShP 

AMP ( I ) =FUMM (GAMP.PHP (I ) ) 

P (2* J) =PHP ( I ) 

IF (I .GT. 1) GO TO 20 
16 TfST=ABS(ASASS(I ) - A b A V E ) 

IF (I TEW .LT, 2b) GO TO lb 
'^RI TE ( 69 600 ) 

CALL EXIT 

1 8 IF (TEST .GT. EKPOK^ASASS < I ) ) GO TO 10 
20 POINT=0.0 

IF (ASASS(I) .LT, 1.0) P01NT=-1.0 

IF (ISLP .GT. 1 .Ok. POINT .EO. 0.0) GO TO 22 

HSHP= 1 .50*H$hp/ASASS ( I ) 

ASASS ( I ) =0.50 

IF (NITER .Eil. SO) CALL EXIT 
22 RETURN 
END 


000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 


000003 

000003 


000003 

000003 

00000 J 

000003 


SUBROUTINE SHLYk(ODSOX) 

C 

C BOUNDARY LAYER ALONG SHROUD WALL 

C 


COMMON X<29lOO)*r(2tiOO)9P(29lUO)9T<29lOO) 

COMMON XSLPU00) 9 YSLP (100) *AMP(100) 9 ThETA ( i 00) tPHPUOO) 9 AMS (100) 9 
1 PHS ( 100) * ASASS ( 1 00 ) 9 OASIJX ( 1 00 ) » ISLP 

COMMON XlS(2l926) 9YIb(2l926) 9 « ( 2 1 ) 9TAU(26) »NSONICf N ANGLE 
COMMON XSONI C < 26 ) 9 YSONl C ( 26 ) 9PS0NIC(26) 9 T SON I C ( 2b > *ISONlC 
COMMON XCONE (100 ) «YCOnE<100) 9PCOnE( 1GO) *TCONt(l00) 9 ICONE 
COMMON XSHD (100) ♦ YSHD ( 100) tDYSUX ( 100) 9 N$HO 
COMMON XBDY(IOO) 9 Y bDY (100) 9UYBUX(100) , NriUY 

COMMON WTFL tHSHP 9 TOS t TUP * GAMS 9 GAMP * F UNG 9 AMR 9 ANGR 9 APREF 9 ASSAPS 9 

1 XPRIM 9 YPRIM 9 APRIM 9 OPRIM 9 CFL 9 CVL t CON A 9 DbUY 9 DSHD 9 END 9 

2 PA Mb, YRATlOf PI ,CUN V A, CONVR ,FD I M,ND AT A, NS TOP, 

3 SOLVE 9 CHOKE 9 Cm ANGE 9 CHARGE 9 TYPE 9 POINT 9 STA 6 


LUMMUN Ml Si 2b) ,4P&A (2b) 9 WLEAK (2b) ♦ T I T L E ( 1 H ) 9 N H € R , T R Y 
COMMON/BNL YR/aSUm ( 100) 9YSUM(i00) 9 DELSHD (100) 9THETAS(100) 9 

1 CF SHD (100) iXCNEdOO) 9 TCNE < i U 0 ) 9DELCNE(100) 9THETAC(1GG) 9 

2 CFCNE(l00)»REYPKMf POP 9 AOP 9 V OP 9 RE Y SEC 9 PUS 9 AOS 9 VOS 9 PE X 9 XSCALF 
600 FORMAT ( 1 H 1 »//2bA 9 1 b A^ 9 // ) 

o02 FORMAT ( 22X 9 6H w T FL = F 4 . 6 9 S X 9 RHP TS/P Tb =F 4 . 6 9 bX 9 bHRE YPRM =1PE10.39 
1 5X 9 bHRE YSEC = 1 PE 1 0 • 3 ) 

604 FORMAT <//26A9 4HxSHL)9bX94HYSHD9bX9 3HAMb9bX9 6H0EL SHO 9 6 X 9 6 H THE T A S 9 
1 6X 9 bHCFSHp • bX 9 SHODSDX// ) 

606 FORMAT (14X,7Fl2.b> 
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0 0 0 0 U 3 
000003 
0000 1 ^ 
000020 
00004U 
C00052 
C 0 0 0 66 


C 0 0 1 0 1 
000102 

000 103 
000104 
000106 
000107 

0001 10 
0001 1 1 
000115 
00012b 
000137 
000147 
000151 
000153 
000154 
0 C 0 1 55 
000156 
000157 
000163 
000166 
GOO 1 72 
000200 
000203 
000205 
000210 
000213 
000221 
00022b 

000232 
000245 
C 0 0256 
0 0 02b 1 
000263 
000270 
000274 
000277 
000302 
000310 
000314 
000331 
000332 
000334 
000341 
000344 
000350 
000362 
000375 
QCQ404 

000415 

000415 

000420 

000423 

000425 

000437 

000450 

000460 

000462 

000500 

000517 

000534 


nlQ FORMAT <lnj) 

AVE (A l ,X2) = <xl *X2) /2 • 0 
pp<AM)=<AM/< 1.0 +0.2* AM* AM) ) **4 

F UNM (GiPH ) =SGPT<?.0/<6-1.0)*<Ph**(-<G-1.0>/G)-i.U) ) 
PUNT (Gf AM) = < A # 0* (6-1 . 0) /?. 0*AM*AM) ** (-1.0) 

PUMP (G, AM) = ( 1 . U* (6-1 . 0) /2. 0*AM*AM) ** (-6/ (6-1 .0 ) ) 
FUNU(TcMP) =2.27*32. i /*|EMP**1 . r>/ ( lUo.o+TEMP) * i . E -6 
C 

C SUbPUUTlMP LAYtK 

C 

ol>sox=o.o 

IP (PEYPPM .EM. 0.0) 60 TO 30 

I = I SLP 

5=0.70? 

6E T A = 0 • 0 

5TAPT=0.0 

T*TO=O.RbO 


IP 

( P L) I M 

.50. 

1 . 

0 ) 6 t T A 

= 1 . 2 b 





IP 

(RTFL 

. GT a 

0 . 

0 .AMU. 

I SLP .to. 

1 ) 

GO 

TO 

12 

IF 

( *i T PL 

.GT. 

0 . 

0 .AMO. 

I SLP .bT. 

1 ) 

GO 

TO 

14 

IP 

IwTPL 

.to. 

0 . 

O • A Ml) . 

AMS ( J -1 ) 

• G T 

. 0 

. 0 ) 

GO 

IP 

( ISLR 

. EO . 

i ) 

GO To 

1 ? 






10 X 5UM ( I ) =0 . 0 
OELbHD(I)=0.0 
THETAS(I)=0.0 
Cf SHO ( I) =0.0 
PEYSEC=0.0 

12 TP=TOP*FUmT (GAMP, AMP) 

AP=44. 02*5 OPT ( TP) 
vp=2.o*ap/rfyppm*xscalE*amp 
PP=53.3*TP*FUNU(Th) /VP 
POP=PP/PUMP (GAMP, AMP) 

POS=POP*PT5 ( N I TlP ) 

AOP=4P.02*5UPT (TOP) 

AQS = 4R.02*5(JPT ( TOS) 

V0P=53. T*TOP*FUNU (TOP) /POP 
V O 5 = 5 3 * 3 * T 0 S * F UM U U 05) /PUS 
14 CALL FIMU(XSLPU ) • YSUMd ) .UY)Xi2.0> 

IP (I .GE. I .AMO. A M 6 ( I ) • EG . 0.0) nO TO 30 

IP (I . 6T . 1 .AMO. AM b ( I - 1 ) O.u) 60 TO jO 

IP ( OEL 5Hj) ( I ) .to . 0.0) 5fARI = l.»J 
AMSHD = AM5 ( { ) 

IP (I * GT . 1) AMi>HO = AVt ( 4Mb ( 1 ) * AMb ( I -i ) > 

P5 = P0S*PUNP (GAMb , AM Srt-)) 

T5=TOS*PUMT (GAM5, AMbrt )) 

A5=4O.02*S OPT ( T5) 

VS=53.3*TS*FUNU ( T5) /PS 
TSTO= 1 .0/ ( 1 .0*0 • ?0*AM5HL)**2> 

TAVETO=0 .60*TWTO+0.22*S** ( 1 • 0/ 3. 0) ♦ ( 0.50-0.22*5** (1. 0/3.0) >*TSTO 

T5TAVE = T5T0/TAVE TO 

TAVE=TS/TSTAVF 

VAVE=53. 3*TS*PUMO < TAVe.) /PS 

IP (I SLP .GT. 1) 60 TO lo 

PEY5EC=2. 0* A5/V5*X5C4Lt*AM5 ( 1 ) 

XR£X=XSC AlE*DEL5hO ( l)/<U.04t>*<i.U + 0.60*AMS(I)**2)**(0.44> ) 

RfcX= (AOS/ VOS* AM 5 (I)*< i • U ♦ 0 . ? 0 * A M b ( I ) **2) ** (-2*26) ) ** (-0.20) 

XL) I M= (XREX/PEX) ** (5. 0/4. 0) 

XSOM ( I ) =X|) I M* Y SUM ( I ) *»hETA*PP (AMS ( I ) ) 

GO TO 16 

16 YAVE=AVE ( YSUM ( I ) , YbUM ( I- 1 ) ) 

AMAVE=AVE(AMS(I) ,AMS(I-i) ) 

DELX = XSLP ( I ) -X SLP ( I - 1 > 

XSUM ( I ) =X SUM ( I-i ) ♦ YAVt**HtT A*Pk ( aMaVl ) *XSCALE*O tLX 
18 XO 1 M= 1.0/ (YSUM ( I ) **6t T a*Pk (AmSmO) ) *XbUM ( I ) 

REX = A0S/V05*Xl)IM*aMSH!>* ( 1 . 0 + 0.20*AMbrlO**2) ** 1-2.65) 

IP (REX .LE. 0.0) GO TO 2? 

DELSHO ( I ) =0 • 0 46*XD I M/XSCALE* ( 1 . 0 ♦ 0 . 60 *AMShL>**2 > ** (0.44) 

I *k£X** (-1 .0/6.0) 

TrlET AS ( I > =0.0 36*XD I M/XSCALE* ( 1 . 0 ♦ O . 1 0 * AMSHD**2 ) ** ( -0 . 70 ) 

I *PEx** (-1 .0/5.0) 

DOSDx = 0 .0 366* ( 1 .0*0 . 60 * AM bht)**2 > ** (0 .44) *REX** (- 1 . 0/5.0 ) 
REY=AS/VAVE*ThETAS( I ) *X bCALE*AMSHU 


GUQ541 
000543 
0 0 O b b 0 

00056b 

000571 
000573 
C 00b7b 
C0O6G4 
000605 
000607 
C00610 
000611 
000612 


000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 


000003 

000003 


000003 

000003 

000003 
000003 
000003 
000012 
000020 
000040 
000052 
000066 
000101 
000102 
000104 
000105 
000106 
000107 
000113 
000120 
000131 
000135 
000140 
000143 
000146 
000163 
000164 
00 0 1 bb 
000173 
00017b 
000177 
000210 
C 0 0223 
000232 


HC=UELSHD ( I ) /TrltTAbl I ) 

H I = (HC/T WTO-O , ?0*AM5hi)**2 ) *TSTO 

20 CFSH0(I>=Q.246*EXP(-1.56i*Hl) *REY**(-0.26H)* ( T b T A Vt ) **1 ,266 
if t islp .eg. i > go ro 30 

IF (DELSHO(I-l) . EQ • O.U) GO Tu 30 

IF ( START .EG. 1.0) DtLiHD ( I ) =OELSHO ( 1-1 ) 

IF (DELSMOU) .GT. 5. 0*UELSHi) ( 1 — 1 > ) UELSHO (I ) =uELSHD (I - 1 > 

GO TO 30 
22 ISLP=ISLP-1 
CALL OUTLYR 
CALL EXIT 
30 RETURN 
END 


C 

c 

c 


SUBROUTINE CNLYR(DUSOX) 


BOUNDARY LAYER ALONG CEN TERBODY SURFACE 


COMMON X<2*100)*Y(2*100>*P(2,iGQ),T<2,iOO) 

COMMON XbLP(lOO) *YSLP(100> % AMP (100) * THETA d 00) *PHP(100> * AMS (100) * 

1 PHSdOO)tASASS(iOO) *DASOX<iOO) , ISLP 

COMMON XI 5(21*26) *YI5(21 *2b) *W<21 ) *TAU(26) *N50NIC* N ANGLE 
COMMON XS0NIC<26) , YSONlC(?b) *PbONlC<26) *T SONIC (2b> * I SONIC 
COMMON XCONEdOO) *YCON£ (100) *PCONE<100) *TCONt(lUO) * I CONE 
COMMON XSHO (100) . YSHO (100) *DYSUX (100) * NSHD 
COMMON XBOY (100) * YBDY dOO ) tDYBUA (100) * NBOY 

COMMON WTFL*HSHP*TOS* TOP* GAMS* GAMP* FUNG* AMR* ANGR* A PREF* ASS APS* 

1 XPRIM* YPKIM* APKlM*OPRIM*CFL*C\/L*CONA*ObOY*DSHO*END* 

2 PAMB*YRATIO*PI * CON V A * CONVR * F 0 I M * NO AT A * NS TOP * 

3 SOLVE* CHOKE* CHANGE* CHARGE* TYPE* POINT* STAG 
COMMON PTS<25) * AREA (25) *WLEAK(25) * T I TLE d 6 ) * N I TEk * TR Y 
COMMON/BNLYR/XSUM ( 100) * YSUM ( 100) * UELbHO (100) * ThETAS (100)* 

CFSmO ( 100) *XCNE ( 100) ♦ YCNE (100 ) * OELCNE (1 00 ) * THETAC ( 1 00 ) ♦ 
CFCNE (100) *REYPRM*POP* AOP* VOP * RE Y SEC * POS * AOS * VOS * PEX * XSCALF 
( 1H1 *//2dx* 1 8 A4 * // ) 

(//32X*4HXCNE*rtX*4HYCNE*6X*3HAMC*6X*bHljELCNE*6X*6HTHETAC* 

6 X ,5HCFCNE* 7 X * 5HD0SDX// ) 

< 1HJ) 

(25X, 7F12.5) 

AVE (Xl *X2) = (X1*X2) /2 . 0 

PR (AM) =< AM/ (1.0*0. 2* AM* AM) ) **4 

F UNM <G*PH) =SURT <2.0/ (G-l .0) * < PH** ( - < o- 1 . 0 ) /G ) - 1 . 0 ) ) 

FONT <G* AM) = ( 1 .0* (G-l .0 > /2.0*AM*AM) **(-1.0) 

FUNP(G*AM)=(1 .0+ (G-1.0)/2.0*AM*AM)**(-G/(G-1.0> ) 

FUNU (TEMP) =2.27*32. 17* TEMP** 1.5/ ( 1 R8 . 6 + TEMP ) * 1 . £-8 
IF (REYPRM .EG. 0.0) GO 10 20 
S=0 . 702 


1 

2 

600 FORMAT 
602 FORMAT 
1 

604 FORMAT 
bO 6 FORMAT 


I = I CONE 
BE T A = 0 • 0 
T ^ T 0=0 . 950 

IF (FDIM .EG. 1.0) BE T A= i . 25 
AMCNE = FIJNM(GAMP*PCONE(I) ) 

IF (I .GT. 1) AMCNE=FUNM (GAMP* AVE ( PCONE ( I ) * PC ONE d-1 ) ) ) 
PP=PQP*FUNP (GAMP* AMCNE) 

TP=TOP*FUNT (GAMP. AMCNt) 

AP=4P . 02* SORT (TP) 

TPTO=FUNT (GAMP* AMCNE) 

TAVETO=0.bO*rwTO+0.22*S** ( 1 .0/3.0) ♦ (0.50-0.22*5** (1, 0/3.0) )*TPTO 

TPTAVE = TPTO/TAVE 10 

T A VE = TP/TPT AVE 

VAVE=53. 3*TP*FUNU ( TAVE) /PP 

IF ( I CONE .GT. 1) GO TO 10 

OELCNE ( 1 ) =OELShO(1 ) 

XREX = XSCALE*DELCnE ( I ) / ( 0 . 046* ( i . 0 + 0 • 60* AMCNE **2 I **(0.44) ) 

REX= (AOP/ VOP* AMCNE* ( 1 . 0+U.20*AMCNE**2) ** (-2.25) ) ** (-0.20) 

X0IM= (X R£ X/REX) ** (b. 0/4.0 ) 

XCNt ( 1 ) =XDIM*YC0 NE ( I ) **bETA*PR (AMCNE ) 
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000242 
C 0 0242 
0002*5 
000250 
G 0 0254 
000256 
000270 
C 0 0 30 1 
00031 1 
0003 13 
000315 

000334 

000363 
C 0 0 370 
G0037U 

0 0 040 7 

0 0 0 42b 
0 C 0443 
0004^0 
000463 
000457 
000474 
00047b 
000500 
000501 
G 0 0502 
0005O3 


GO FO 12 

10 r A VE = AV£ < YCONE ( I) * YCOUE < I -1 ) ) 

(JAVE = AV£ (PCONE ( 1 ) « PCOnE ( I - i ) ) 

4mave=fijnm < GAMP, PAVE ) 

DELX=XCONE < I i -XCONE ( 1-1 ) 

ACNE ( I > =XCNE ( I-U ♦ YAVl**HETA*PK < AMAVt) *XSCALE*UELX 
12 XO I M= 1 • 0/ ( YCONE ( [CONE) **dE T A*PP { AMCNE ) ) *XCNE ( I ) 

p£X = AOP/V OP*XD IM*AMCNE* < i . U ♦ 0 . ^ G * AMCNE * *2 ) ** < -2 . 25 ) 

IF ( PEA .LE. 0.0) GO TO lb 
IF (HEX .GE. 1 . E 7 ) GO To 14 

OELCNE ( I ) =0. 046**0 I M/X SCALE* ( 1.0+0.d0*AMCNE**2) ** (0.**) 

I *PEX*<M-1.0/5.U) 

THE T AC ( I) = 0. 036^X0 I M/XSCAlE> 1 1 . 0*0 . i 0*AMCNE**2) **(-0.70) 

1 *KEX** ( -1 . 0/6. U ) 

0050X = 0.0 36rt*< 1 .0*0.BU*AMCNE**2> **(0.**> *PEX** (-1 .0/5.0) 

GO TO 16 

14 OELCNE ( I) =0. 02H*xOI M/ASCALE* ( 1 . 0 ♦ 0 . d* AMCNt**2 ) ** ( 0 . 44 ) 

1 *P£X** (-1 .0/6.0 ) 

THETAC < I ) =0. 022* AD I M/X SC ALE* ( 1 * U ♦ U . i J * AMCNE **2 ) ** ( -0 . 70 ) 

1 (-1,0/b.G) 

ODSOX = 0 .0233* ( 1 • 0* 0 . BO * AMCNE **2 ) ** (0.4*) *PEX** (“i .0/6.0) 
lb W£Y=AP/VAVE*ThETaC ( I > *XSC4LE* AMCNE 
HC=DELCNE ( n/THETACU) 

Hl= (HC/TWTO-0.20*AMCNE**2) *TPTO 

CFCNE ( I ) =0.246*EXP (-1 .5bl*Hl ) *KL Y** (-0.266) * <TPTAVE)**i.26d 
GO TO 20 
Id I CONE = I CONE- 1 
CALL OUTLYP 
CALL EXIT 
20 PETUPN 
END 


C 

C 

c 

000005 
C 0 0 0 05 

G 00 0 U5 
0 0 0 0 U 5 
C G 0 0 0 6 
000005 
000005 
000005 


C G 0 0 0 5 
000005 


00003b 
000057 
000067 
000077 
C 0 0 1 05 
000127 
000135 
0001*1 
C001A4 
300155 
000171 
000173 
000202 
C 0 020 7 
000215 

000225 
G 0 022b 


SUdPOUT I N£ */AKE (OELWiUELA > 


CALCULATION OF VI5C0O5 MIXING Kt_G I ON 


COMMON 

COMMON 

1 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

1 

2 

3 

COMMON 
FUN A ( G 

1 


X ( 2 * 1 0 0 ) * Y (2*100) # P ( 2 » i 0 0 ) *T (2*100) 

XSLP (100) » Y5LP ( IU0 ) * AMP (lUO)tfi4ETAUOO) »PHP <100)*AMS(100)* 

PHS (100) *AbASS(100) *OaSUX ( 100 ) * ISLP 

XIS(21*26> *Yl5 <21 *2b> *4 <21 > *TAU (26) * N50N I C * NANGLE 

X50NIC (2b) ♦ YbONlC < 2b) .P50NIC( 2b) * T SONIC (2b) » I SONIC 

XCONE (100) * YCONE (100) .PCONE (100) t T CONE ( 100 ) * I CONE 

X SHU ( 100) . Y SHU ( 100) * O Y SUA ( 100) .NSHU 

XHOY ( 1 0 0 ) , Y HUY ( 1 U0 ) ♦ I) Y HU A (10 0) . NBDY 

wTFLtHSHPi TOS. r UP * GAM S * GAMP . FUNG * AMP . ANGK * APPEF * ASS APS * 
XPPI M, YPPIM , APPIMfljPPlMfCFLiC\/L*CONAtDriUY*OSHD*END* 

PAMbf YPAT 1U*PI *CONV A*COnVK*FUIm*NDATA*NSTUP* 

SOLVE * CHOKE f CHANGE * CH AP6E «T TPE.POINT.sTAG 
PfS<?5) * APE A (25) t WlE AK ( 25 ) * T I TLE < 1 H ) * NI [Ep.TPY 
AM>=( (G* 1.0) /2.G )**<-( G*1.0)/ (2.0* (G-1.0) ) ) * 1 . 0/AM* < 1 . 0 ♦ 
(G-i .<>) /2.0*AM*AM) **< (G*l . 0) / (2. 0* (G-l.O) ) ) 


FUNO(G. AM) =SUPT ( (b* 1 .U > /2.0 *aM*AM/ ( 1 . 0 ♦ ( G- 1 . 0 ) /2 . O * AM* AM ) ) 


C HOC CO ( G * AM ) =AM*4M/ ( 2. 0/ (0- l . 0 ) * AM*AM ) 

F UNCP < C A * PHI )s(l .0-CA) *PHl/( 1 . U-C A*Ph I *PH I ) 
AVE (A 1 . X2 ) = ( X 1 *X2 ) /2 . U 


PH I H = F UNO (GAMS* AMS ( I SLP ) ) /EUNO (GAMP . AMP (ISLP) ) *SUPT ( TOS/TOP) 


G4Ml-(GA*wP^w/TFL*GAMS)/(l,U*rtTFL) 

6 I I S I = ( 1 • 0 * PH I H ) / ( i.O-PHIb) 

Ca I ISO=CPOCCO (GAMP f AMP ( I SLP) ) 

C4 I SU = CA I I SO* ( 1 . 0 -PH 1 6 ) **2/ (CAI I SO* < 1 . 0-PHld) **2 + ( 1 . 0-CAI I SO) ) 
SIGI = 12.0*2. 75b*sOKT ( C A I SO) / ( SOPT ( ( 1 . 0-C A I SO) * < GAM I - 1 . 0 ) /2 . 0 ) ) 
Slul I =S I I SI*SIGI 

a Pa r IO=FUNA ( GAMP . AMP) /FUNA (GAMP* AMP ( ISLP) ) 

Call <*I x ( TOS/ TOP *C a I ISOtPHlH.O.O.SIGVb) 

)ELA=2.0/blGl I*XbLP( i ^LP) *YSLP ( IbLP) *SIGVb 

)EL^ = 2.0/Slbl I*AiLP ( I SLP) * Y SLP ( I SLP) * AP AT 1 0*F UUCP ( C A I SQ * PH I d ) * 

1 SlGV-s 

r-E TU*N 
E >10 


000010 
000010 
000011 
000013 
000014 
00001b 
000022 
000023 
000030 
000031 
000033 
000034 
000035 
000037 
000041 
000043 
00004b 
000064 
000074 
000102 
000105 
000106 
000114 
000121 
000127 
000130 
000132 
000133 
000135 
000137 
000142 
000144 
000151 
000153 
000157 
000167 
000170 
000 1 7 ^ 
000175 
000202 
000204 
000211 
000216 
000223 
000231 
000240 
000242 
000243 
000243 
000245 
000251 
000252 
000254 
000257 
000261 
000264 
000270 
000273 
000275 
000276 


SUBROUTINE MIX (Tu6*CA2*PHlB*PHlL)*SIb\/B) 

C 

C CALCULATION OF PERTINENT PARAMETERS FOR MIXING SOLUTION 

C 

DIMENSION £ T A ( 4 1 1 ) ) , Pri I K 10 > * TOR (41 0 ) * E I 1 (410) *EI2 (41 0 ) «E I 3 <4 1 0 ) 
PI=SORT (3. 1415927) 

ETaRB=-S.C 
DEE T A = 0 . 020 
ETA ( 1 ) =E T ARB 
PHI ( 1 ) =PH IB 
T OR ( 1 ) = TOB 

A 1 =PH 16* < 1 .0-CA2) / (TOH-CA2*PbIB**2) 

B1=PHI6*A1 

Cl=TOB*Al 

El 1 ( 1 ) =Ai*ETARB 

E 1 2 ( 1 ) =61*ETARB 

El J(1)=C1»ETARB 

OO 12 1=1*400 

ETA ( I ♦ 1 ) =ETA ( I ) ♦DELTA 

A VE TA = ( E T A ( I ♦ 1 ) ♦£TA(] } ) / 2 « 0 

PHI ( I ♦ 1 ) =PHI ( I ) ♦ { 1 .0-PHIB) *EXP (- (AVETA**2) ) *DEETA/PI 
TOR(I*1> = (TOB*U.O-Prtl (I*!) ) +PHI (1+1 ) -PHI d)/(l. 0-PHIB) 

A2=PHl ( !♦ 1 ) * ( 1 .0-CA2) /(TOR ( I +1 ) -CA2*PHI ( I ♦ 1 ) **2) 

82=PHI ( I ♦ 1 ) *A2 
C2=T0R ( I ♦ 1 ) * A2 

El 1 ( I + l ) =EI 1 ( I ) ♦ ( A 1 ♦ A2 ) *DEETa/2.0 

EI2(I+1)=£I2(I) ♦ (B1+H2) *DEET A/2.0 

EI3(I>1)=EI3(I) ♦ (Cl +C2)*DEET A/2.0 

A 1 =A2 

Hl=ri2 

C 1 =C2 

J=I ♦ 1 

IF (ETA ( I ♦ 1 ) ) 12,12,10 
10 A=EI1 (I+1)-EI2(I+1) 

B=E I 1 ( I ) -EI2 ( I ) 

IF ( ABS ( A-6) -1 .0E-05) 1*4,14,12 

12 CONTINUE 

14 El 1J— (El 1 ( J ) - E 1 2 ( J ) )/(1.0-PHIB) 

E T AM = ET A ( J) - (El 2 ( J) -P*i I B*t 1 1 < J ) ) / ( 1 .0-PHI 0) 

OO 16 K=2*400 
IF (Ell (K) -El 1 J) Ibt 10*18 
16 CONTINUE 

IB DET A= <E 1 1 J-EI 1 (K-l) >/(EIl(K)-EIl<K-i) ) *DEETa 
E T A J=E T A ( K- 1 ) ♦OETA 

PHI J=PHI (K-l ) ♦DETA/UEETAMPHI (K) -PHI (K-l ) ) 

EI2J=EI2 (K-l > ♦DETA /DELTA* (EI2(K) -EI2 (K-l) ) 

EI3J=EI3 (K-l ) 4DETA/DEETA*(EI J(K) -EI3(K-1 ) ) 

STNSG= (E 1 2J-PHI B*E 1 1 J ) / ( 1 . 0-PHlH) 

V8SIG = EI 1 J* ( TO0-CA2*PHIB**2) / ( 1 . U -CA2 > -E T AM*Pn 1 6 
IF (PHIB .EG). 0.0) GO TO 20 
SIGVB=VBSIG/PHIB 
GO TO 26 

20 OO 22 1=1 *400 

IF (PHI(I«>1) .GT, PHID) GO TO 24 
22 CONTINUE 
24 DELP=PHID-PHI ( I ) 

DPHI=PHI ( I ♦ 1 ) -PHI ( I > 

DETA=ETA ( I ♦ 1 ) -ETA ( I ) 

OEIUEI1 ( I ♦ 1 ) -El 1 (I) 

E T AO = ET A ( I ) 4UETA/DPHI*L)ELP 
Ell D = E I 1 ( I ) 4DE 1 l/DPHI*OELP 
SIGVH=EI1J-EI10 
26 RETURN 
END 


58 



■VJHPUU T I -4*“' HpFAK(J) 


C 

c 

r 

G G G 0 U J 
GCOOlj j 

o j 0 0 0 J 
000003 
j 0 0 U 3 
000003 
v 0 0 0 U 3 
G u 0 0 0 J 


C 0 0 0 0 3 
C 0 0 0 0 3 
C0000J 

GOOOiA 

000034 

000074 

C001X7 
000140 
0 DO 130 
C001m2 
0001/0 

000170 

000170 
000170 
C 0 0 1 72 
000173 
000174 
C 0 0 1 76 
G 0 020 1 
C 0 0 203 
00021 1 
0 G 0 2 1 7 
000222 
000227 
C 0 02 30 
C 0 0 2 3 o 
C j 0 2 4 3 
000247 
000231 
000237 
000263 
000266 
G 0 0 27 1 
G 0 0276 
000302 
0 0 0 3 1 0 
000313 
000321 
00032b 
000327 
GOO 333 
000341 
C 0 0343 
000336 
000372 
C 0 0 3 7 4 
000402 
G 0 0 4 0 7 
0 0 0413 
OOU417 
0 00*21 
000*2*4 


CALCULA T I 1 J U Of' i'-PlNGMENT UN SHKOUU »'ALL 


COMMON 
CO MM 1 )n 

1 

C i j M M * i N 
COMMON 
COMMON 
common 
COMMON 
COMMON 

1 

2 
i 


X ( 2 t 1 0 o ) 4 Y ( 2 4 J. J U ) 4 h ( 2 4 l O O ) 4 f 1 2 4 10 0) 

XbL p < 1 - YbL^ ( i LIU I » A 4 2 ( 1 0U ) 4 ME T A ( l 00 > * 2HP ( 100) » A^b ( lUU h 

3H i { i 0 G ) 4 aSA 33(1U0) 4 O A 3u A ( i O 0 ) 4 I 6|_2 

XI3< 21 4 P 6 ) , Y lb (21 4 26) 4 * (2l ) 4 TAU (26) 4 NSUN I C • N ANGLE 
X^ONI C (26) « Y3i)n1 C (26) .2300 1 C < 26 ) 4 T SON 1 C (26)4 130 NIC 
X C 0 N 3 ( 1 00 ) • rco-' -|H ( 100 ) .MCONt (10 0) 4 TCONt (100)4 I CONE 

X 3 HO ( 100 ) 4 Y3H0 ( 100 ) 4 0730 X ( i 0 0 ) iNSHU 

XhOY ( 100 ) < YrtlJY ( 1 00 ) 4 0 Y -OJX ( 1 00 ) i.MMUY 

n I EL 4H3m2 , T 03 4 I 02 * Gm M b 4 O^MP 4 FJNO »A '^ 4 AN^Pi APKtFtASSAPS* 

XP4 I M • I m , I M » UP2 I M 4 CFL 4 C YL 4 CONA 4 U6L)Y 4 03HL) 4 END 4 

PAXH4YPATI0 42I 4 CON V A 4C0NY2 4F O 1 M 4 NO A r A 4 N3 TUP 4 
SOL YE 4 ChOk F 4 Ch A Nub 4 CM A Pot * T Y P E 4 P O I u T oT«(i 
COMMON PTS (23) »AkF A ( 2~> ) 4 wLtAK (23) 4 TI TLti ( 1H) ■I'jIIE^TkY 
2FAL K A22 A 

KONA < G 4 AM ) = ( <G4l.0>/2,0)**(-(GM.U>/<2.U*<G-1.0n > *1 . 0 /AM* ( l . 0 * 

1 < G - 1 • O ) / 2 • 0 * A M * A M ) * * l (G+1.0)/(2.U*{G-1.0) ) > 

FijnM ( (3 4 UH ) = SO* T ( 2 • 0 / ( 6- 1 • 0 ) * ( PH** ( - ( G~ i • 0 ) /G > - 1 . 0 ) ) 

F U N Q ( (7 * A M ) = SO 2 T ( 104 1 . 0)/2.(J*AM*AM/ ( 1 . U ♦ < G- i . 0 ) /2 . 0*AM* AM ) ) 

3ECV (lit 2) = ( ( ( 1 • 0 ) *2 4 (Ci- 1 . 0 ) ) / ( ( 3- 1 • 0 ) * 2 + ( <-,4 l . 0 ) ) ) ** (6/ <6- 1 • 0 ) ) * 

1 2 ** ( -1 * 0 / (ii-l . 0 ) ) 

ESCAPE (TtPP) =SOKT ( ( ( 7 ♦ J . . O) / (G-l • 0 ) * ( 1 .0-22** ( - ( 6- 1 . O ) /G ) ) ) 

C2UCCO ( G 4 AM) =AM* AM / ( 2 , 0/ ( ( 7 — l • U ) 4AM* AW) 

TEST (Cl 4 2k) = 1 . 0-22** < - (o- 1 . U ) /Cl) 

A\/E(Xl4X2) = (Xi4X2)/2,0 L - . 

K02MAT ( IhI 4//.i3X*.lrirMAlsE IMPINGES U,M 3HKUU0 WALL AT X3LP =Fy.6fdH 

l ♦ Y3LP =F 2.6//) 

302 FQPMAT (2‘4X46Hw|FL = F 2 . 6 4 **X 4 7H *Lt AK -F 2 . 6 4 a X 4 3Hpp A T I U =r ^. 64 ^X 4 
19HTOS/TOP = F2 . 6 ) 

60* F 02 M A T ( lHl ) 

KAPPA=1 . 0C0 
fi T OL = 0 .0 003 
PTOL =0.0003 
10 I=I3LP-1 

DYDX=TAN< THETA ( I ) ) 

l)Ti)A= < THETA < I ) -THETA < l-l > > / U3LP ( I ) -X3LP ( I - 1 > > 

CALL F I NO ( X3L2 < I ) 4 YP 4 UYPU X 4 2 . 0 ) 

X2tiF = XSL2 ( 1) ♦ ( Y2-YSLP l 1 ) ) / O) Y L)A-D YPDA ) 

CALL F I iJU ( X2EF 4 YkKF 4 D Y2L)X 4 2 • t) ) 

THFT AP=THE T A ( 1 ) + 0 Tl)X* ( X2EI- -XbLP ( 1 ) ) 


300 


P2EF = HSHP 

AM2EF=FUnm ( (i AMP * P2EF ) 

TmET AP = PMF2 ( AMP { I } 4 The T A2 4 AM^EF 4 (7 AMP ) 

1 2 i)ELT A = THE T A2-AT AN ( L)Y2uX) 

IF (UELTA .LE. 0,0) (iU Tu 16 

IF (UELTA .GT. 0.0) 22 A T I 0=2 3 I ( G AMP 4 AM2EF 4 UE L 1 a ) 

2EC0MP=1 .0 ♦KApHA* (22 A r 10- i .0) 

PEbT=TEbT (GAMP 4 PECUMP ) 

IF (PEST .LT. 0.0) CALL EXIT 
AMA=F UNO (GAMP 4 AMPEF ) 

A Ml) -ESCAPE ( G A M P 4 2 fc COM 2 ) 

3= ( 1 . O-TOb/TOP) * ( AMU/ AM A ) **2/2.0 
C = TOb/TOP* < AMO/ AM A) **2 
PH I D = B ♦SUP T ( H * H ♦ C ) 

TOSTOP=TUS/TOP^ ( 1 .0-ToS/TOP) *P hIO 
PHIh = 0 . 0 

GAM I = ( GAMH4 ^TFL*naM3 )/(1.0^WTFL) 

3 1 I SI= ( 1 . 0 + PHlb) / ( 1 .0-PHl H) 

CA I I SQ = C 20 CCU (Gamp 4 AMrvEF ) 

C A I 3U = CA I I 3 U* ( 1 . U -PH I H ) ** 2/ ( C A I I S i ,J* ( 1 • 0*“PH I H ) **2 ♦ ( 1 . 0 -C A I I SU ) ) 
31 ( 7 1 = 12.0 42. 736*3(jP T (CAI 30 ) / ( Sun T ( ( 1 . 0-C A I 3 J ) * ( <jAm I - 1 . 0 ) /2 • 0 ) ) 
SIGI1=SIIST*SIGI 

Ah AT 1 0=FUNA (Gamp . amp ) /FUN A ( Gamp 4 amkEF ) 

CALL M I X < TU3/1 02 4 CA I 1 4 Pn I 3 * Pn l D • 3 I ) 

^LFAK (MI TEP) = 2 .u/SlGI 1 * A2E.F * Y PtF * A 2 A T I U*S I G V 6 
XSLP ( ISLP) =XSLP ( I SLP- L > 

YSLP(I6LP)=T3LP(1SLP-1) 

THETA ( ISL^) =AT AN (UYPUX ) 

HH3 ( ISLP) =1 . 0/2ECOMP 


v u 0 4 2 6 
0 0 04 Jb 
0 0 04 4 1 
J G 0 4 4 3 
0 C 0 4 D 1 

0 0 0 4 6 O 

j u u *+ b 7 
: o j4^o 

1 0 0 4 6 1 
000462 
•? 0 0 4 6 6 
0004/1 

: u o 4 7 4 

C 00477 
000304 
' j 0 051 7 

::os22 

l» C 0 b 2 3 

j 0 0 3 2 4 

C j 0 32b 
O0032b 
000330 
0 6 0 b 3 1 

o' U 0 3 4 4 

000333 
C 0 0 5 3 7 
0 J 0 364 

C J0bb7 
0C0572 
"00373 
G 0 0 6 0 1 
Cu0t>04 
C 0 0 6 0 o 
000610 
0 0 06 1 2 
G 0 06 1 3 


« 4 b < I bLP ) = F UNM (GaMS«PmS (IbLP)) 

AbAbb ( I SLP) = FUNA ( GAMb ♦ AMS (IbLP) ) 

p HP ( I SL P ) =^eCOMP*MKLF 

AMP ( I SLP) = F UNM (GmMp * kpp ( 1 bLP ) ) 

APFA (NI TP P) =AM]Ni { APt4 (i\ll I tR) ,AbAbS(IbLP) ) 
P(JINT = -1 . O 
N H l ( 3 H = 0 

■>0 14 I = 1,,mITFp 

IF (.vLEAM[) .eg. 0 . U ) GO TU 14 
IF ( WLE A * ( I ) • G T . W TF |_ ) NH 1 GH = 1 ♦ Nrl 1 Grl 

l 4 continue 


^ t F F = AH S ( vi T F L -rt Le A K (siITcP) ) 

IF (NIT 6 R .Fg. I) PifF = i.O 

IF (NJT-;p . GT. n PI F- F = AHb ( P Tb (Nl TLP ) -PTb ( NITF K-i ) ) 

IF (viHir,H .GT. 0 .AgO. P I F F ,Lt. PI UL*PT b < N I TEK ) ) GO TO 16 
IF (>VIFF • G f • wfOL) GO TO Id 

16 PoiNr=o.o 

TYPE=0.0 
3 T Ag = l.o 
CHAMGE=1 . -J 


PTb (NI T e P + i ) =HbHP 
'•/LEAK < Fj I Th R) sjuTF'L 


AbEC-YM^yp^^FOIM-YbLP ( IbLP) * Y SLP ( ISLP) **Fl) I M 

IF ( AdS ( UYr>i)x ) ,(, T . o.U) CALL A JAX ( AP , YP , ALPHA , ASFC , O ADA ) 

ASPAPb=AbeC/APKlM*APKeF/ASASb(IbLP) 

IF (a/TFL .GT. 0.:)) AbSAPb = AMINl (AbSAPbf ASPAPb) 

IF (wTFL .60. 0.0) AbbAPb=AbPAPb 
HSHP: 


P ( 1 * J-l ) = AVt ( PHP ( ] SLP ) *P-fP( IbLP- l ) ) 

T ( 1 ♦ J- 1 > =A Vf (THF TA { I bLP) * ThET A ( IbLP-1 ) ) 
CALL FIFLlHJ-i) 

17 I SLP= I SLP* 1 
CALL bLIP(J) 

CALL SLIU(J) 

1H RETURN 


6'MD 


C 

c 

c 

C 0 0 0 0 J 
000003 

0 C 0 0 (j 3 
COO 003 
OC0O03 
GGOOO 3 
000003 
e 00003 


000003 
C 0 0 0 0 3 

C 

c 

C 

G 0 0003 
00 00 OS 
00 0006 
G 0 0 0 1 1 
000014 
0000 1 7 
G JG020 

00 00 24 

00002o 


bUdPGUTrMr I NS*RT (NPT ) 


I NSt P T I ON OF FltLi> POINTS 


COMMON X(P*lO0>*Y<2*i0U)tP(2*iOO),r<2*iO0) 

COMMON XbLP U 00 > * YbLP ( 1 U0 ) * AMP ( 1 UO) * IhETA ( 1 00 ) »PHP ( l 00 ) * AMS ( 100 ) 
1 PHS ( i 00 ) » ASAbb < 1 00 ) fOAbUX ( 1 00 ) * IbLP 

COMMON Xlb(Pl«Pb) ^YIb(2i*d6) ♦TAU(26> « NbON I C * N ANGLE 

COMMON XbON I C < 26 ) «Y SONIC (26) tPbONXC(26) »T SONIC (26) » I SONIC 
COMMON XCONF (100) • YCO-mE ( 1 OO ) »PCoNL ( 1 JO ) • TCONt (100) $ I CONE 
COMMON XbHO ( 1 00) • Y bHg ( 1*J0 ) *OYbUA (100) , NShO 
COMMON XHOY (100) ♦ YpUY ( luO ) *OYdL)X UU0 ) *nhDY 


COMMON n/TFL tHSMP» T Ub * TOP * GA-Mb tF Jng» AMPf AiMbP ♦ APKEF » AbSAPS* 

1 XPp I ;* ♦ YPP I r*i * app I M * OPP I M * CFL *C VL * CONA « UtiU Y * OShO * END » 

^ PAMG» YpATK.it PI » CONYA fCQNVK tFO I MANDAT A »NbTOP* 

3 SOLVE * CHO*r. * CHANGE *Cr)4PGt » rYPt*POlNT*bTAb 

COMMON PTb (2b ) f A-e A <2b) i L t A K (2b) * I I f LE ( 1 d ) » N I T E H * T H Y 
DIMENSION C ( 16) <i) (o) 


SUBROUTINE INSERT 

NPTb=l + JPT 
X NPTS=NPTS 

OX= ( X (1 f 2) -X ( 1 • n I / XN p T b 

oy= (r(ii2i*niuii /X'^pTb 

0 T = ( T ( 1 ' 2 ) - T < 1 • 1 I ) / X NR T b 
LM 12 J=1 , loo 
X ( 2f J) =X ( l • J) 

r <2* j) = y(i* j) 

P ( 2 « J ) =p ( hJ) 



CuOOiU 
C 0 0 0 3 2 

'j 0 0 0 4 1 
000043 
000047 
COOO 32 
0CQ0S7 
000052 
G 0 0 0 n 3 
G 0 0 0 7 0 
0000 ?5 
000101 

000114 
000117 
000120 
000121 
000123 
000124 
000127 
000132 
000134 
000137 
C 0 0 1 4 1 
C 0 0 1 43 
000145 
00014b 
0 0 Q 1 5 U 
C 00 1 5 1 
0 C 0 1 53 
0 0 0 15* 


000003 

000003 

C 0 0 0 0 5 
000005 
000005 
C 0 0 0 0 5 
000005 
C 0 0 0 0 3 


0 30005 
000005 


000005 
3030Gb 
030010 
C u 0 0 1 * 

C 0 0 0 1 3 
j i 0 0 1 b 

C 00020 
0G3022 
C V 0 0 2 * 
000025 
000027 
C 0 0 0 3 1 
C 00033 
00003b 
000040 


T (2* J) =T < 1 * Jl 

Call c o a v t (xAVE*YAVE,PAV2*T4vt*i*i*i*2> 

CALL COEF F ( XA VF * 7 A V t *PAVt * TA VE *C*bAMP) 

I) ( 1 > =C ( 1 ) 

:) (1) =1 .0/ (C ( 3) *C (S) *C t 7) ) 

0 ( 5) =Fl) [ '-*C <*) *C ( 1 1 ) / (C < i J) *C ( 13) ) 

12 conttnuf 

00 1* J=2*NPT5 
MhJ>=<u»J-n ♦ox 

Y(i*j)=Y(i*J-i>-*-N(i)MX(i*J)-xii*j-i)) 

r n* j)=T(i* J-i ) + 

1 0 ( 0 ) 
w CONTIMUF 

i =np rs 

0 0 lb J = 2 * 1 U 0 

IF ( ^ ( 2 * J ) .EO. o.O) bO Tu l“i 

1 = 1*1 

X ( 1 • I ) =A (2* J) 

y ( l * i ) = y ( 2 * J) 

2(1*1) - y ( 2 * J ) 

r ( l * I ) =r (2* j) 

lb CONTINUE 

18 OO 20 J= l * IOO 
X ( 2 * J ) = 0 . 3 
Y ( ? * J ) =0 • 0 
P (2* J) =0.0 
r ( 2 * J ) =0 . 0 
20 CONTINUE 
RE TURN 
t'NO 


C 

C 

c 


SUHROUT I N£ CLEAR (KShIFT * JREF ) 


COMMON X(2,lUO)*Y(2*iOO)*P(2*iOO)*T(2,lOO) 

COMMON XSLP HOC) « YbLP ( 100 ) * AMP (10 0) ♦ T HET A ( 1 O U ) *PnP (100) * AMS < 100) * 
i PMS (100) * A5AS5 (10 0) *UA3L)X ( 1 00 ) *15LP 

COMMON XlS(21*2b) *YIS(21*26) * w ( 2 1 ) *TAU(26) * NSON I C « N ANGLE 
COMMON XSONIC (2b) * YSONlC (2b) *PbOMC (26) *T SONIC (2o) * I SON 1C 
COMMON XCONE (100) * Y CONE (IOO) . PCONE (IOO) * TCONE ( 1 00 ) * I CONE 
COMMON XSHi) (100) * YbbO ( 1 0O ) * OYSUX ( 1 00 ) * NbHl) 

COMMON XMOY(iOO) • YrtDY < 1 00 ) *0 Ydl)X < 1 00 ) * N H D Y 

COMMON TFL * HSHP * TOS * TOP * GAMS * GAMP * F 0N6* AMR * ANGR * APKEF *ASSAPS* 

1 xPRlM, YPPIM, APPIM*OPPlM*CFL*CVL*CONA*OHUY*t3bHO*ENO- 

2 PAMS* YPAT10*P1 * CONY A * CON VRtFD I M * NO A TA * NbTOP * 

1 SOLVE *CHUKE * CHANGE * CHARGE* TYPE* POINT * ST AG 

COMMON PTb ( 25 ) *4 kEA ( 23 ) * rtLE A k ( 25) * T I FLE ( 1 rt ) * N I TE k * TRY 
COMMON/HNLYP/xSOM (100) * Y5UM (100) * OLLbHL) (100) *ThETA5(100) * 

1 CFShO ( 100 ) * XCNE ( 1 0 0 ) * YCNE ( 100 ) ♦ DELCNE ( 1 0 0 > *THETAC(100) * 

2 CFCNEUOO) *R£YPRM*POP* AOP* VOP * RE YSEC ♦ POb * AOS* VOS ♦ PEX * XSCALF 
t RROR=0 .0001 


XREF=X (2* JREF ) 

IF (ISLP .01. 1) 00 TO 1*+ 
00 10 1 = 1*2 
00 o J=1 * 1 00 
x ( i * j) =0. o 


Y < I * J ) = 0 . 0 


p ( I * J) =0.n 
T ( I * J) =0.0 
8 CONTINUE 
10 CONTINUE 

00 12 1 = 1*100 

IF (I . GT • 1) OtLSbU ( I ) =0. 0 
THETAS ( I ) =0.0 
CFSHO(1)=0.0 



0 G 0 0 4 i 
C 0 0 0 4 2 
000043 
000044 
0 0 0046 
P C 3 0 4 b 
0000*7 
000051 
0 G 3052 

t 0 0 0 d4 

C03061 
0000b j 
000074 
00007b 
0 C Q 1 0 1 
000103 
GG0105 

0 0 0 1 1 U 

0001 12 
000114 
000115 
000117 
C00121 
C0012J 
000124 
000125 
0 C 0 1 2 7 
000131 
000132 
C 0 0 1 34 
000135 
C 0 0 1 3 7 
00 0140 


COOOOd 

000005 

0 G 0005 
OOOOOd 
C 00005 
OGOOOb 
200005 
C 0 0 0 03 


000005 
000005 
300014 
000014 
C 0 0 0 1 3 
000017 
000020 
000021 
G 00025 
CO 0031 
300033 
000034 
00003b 
000040 
0000*1 
0G0047 
OC 005 3 


uelcne ( n =0. o 
ThETAC(I)=u.O 
crcNh ( n =o.o 

12 CONTINUE 
Ci 0 TO 2b 
14 J = Q 

*\4AA=i G0-K5HIFT 
00 iH K=1 .JkEE 
I=K*KbHIFT 

TE5T=AHS(X (2,1 ) -x ( 2 f I - 1 ) ) 

IF ( A ( 2 , I ) • EO * A (2, 1 + 1)) 00 TO ib 

If- ( K 6 m I h T .07. 0 .AOi). TEbT .Lt. EPPOP) 00 Tu lb 
J=1 + J 

X ( 1 , J) =X (2, I ) 

y < i , j) =v < 2, n 

P< 1 , J) = P (2, [ ) 

T ( 1 , J) =T ( 2 , 1 > 

16 A (2, I) =0.0 

y (2, r ) =0.0 

2(2, I ) =0.0 
T(2,I)=0.0 
in CONTINUE 
20 KPEK=1+J 

i)Q 24 K = K h»EF ,10 0 
00 22 1=1,2 
A ( I , * ) = o . ■) 

Y ( I »K) =(>. j 

P ( 1 ,K) =0 . Cl 

T (I *K) =0.0 
22 CONTINUE 
24 CONTINUE 
26 KfcTUPN 
FNf) 


Suhpout i nf Check ( j, S hock > 

CHECK FOP COALtbCENCE OF CHAhACTEpISTICS 


-00 


COMMON 

COMMON 

1 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

1 

2 

( 

COMMON 
A V E < A 1 , 
F OhM AT 
ShOCK= J 
LPEF=J- 
00 12 L 


A(2,iUu) , Y ( 2 , 1 0 0 ) ♦ P ( 2 , 1 U 0 ) ,T (2,100) 

,Y f L r ( ! 1)0 ’ ,AMP< lu0) ’ theta ( ioo»,PMP(i 00) ,amsuoo>, 

PH>> U 00 > , 4bAbS < 1 0 0 ) MJbbUX(lUO) tlbLP 
X I b ( 21 ,2b) , r I b (21 ,2b) , w (21 ), TAU (26) , NbQN I C , NANGLt 
XoONlC (2b) , Y SOuIC (2b) ,PbONIC (2b) , TbONIC (2b) • IbONIC 
XCONE ( 100 ) , YCONE ( 1 UO ) , PCONE (100) , TCUNt ( 100 ) , 1CONE 
XbHO ( 1 0 0 > , YbbO ( 1 U 0 ) ,0/bUA ( 1 00 ) , NSHU 

Xboy ( i no ) , yhoy ( i jo) , ornux 1 1 o o > , Ndo y 

'Vl K LihbHP, TOS, T OP , GAMb , GAMP , FUNG , AMK , ANbP , APPEF , ASS APS • 

APP I M » YPh J M » AHH I M , uPP I M , CFL ♦ C V L , CON A , UdL) Y * DSHO t ENO , 

PAMb, YhATK),PI .CUNVA»CON)/Kf FUIrtf NDATA*NS»TOPf 
SOL VE , CHOkE , Change ,CHaPGE, type, point, stag 
PTS(^S) .AHrA(Pb) .*Lfc'A«;<«fb> .TITLt(lH) .NI TtH.lHY 
X2) = ( X 1 + a 2 ) /2.0 

( //3bA , UOhCUALt SENCt HAb OCCUPtL) AT XP =Fb 


. 5 , 6H , YP =Fd , 5 ) 


■i , LPEF 


k=j-l 

IF ( X ( 2 ♦ J ) . G T • 

IF (Y(2,J) . GT • 

X (2, J) =X (2,2) 

Y (2, J) =Y ( 2,2) 
p ( 2, J) =P (2,2) 

T (2t J) =T (2,2) 

OQ TO o 

6 IF ( A ( 2 , J ) .GT. 

IF < Y ( 2 , J ) .GT. 
H 00 10 N=K,LPEF 


A ( 2,2) ) r,Q Jo b 
Y ( 2, 2) ) GO TO 6 


A ( 2 * K ) ) GO TO 12 
Y ( 2 , K ) ) i,0 Jo 1 2 


62 



C C 0 0 5 5 

j j 0 0 b 0 

000063 
3 0 0 0 6 o 

ocoo/o 
C00072 
000076 
000103 
00010b 
000107 
00011 1 
0 0 01 1 ^ 
0001 16 
GO 0 1 20 

000122 

000124 
G 0 0 1 £6 
GuO 1 2 7 
000130 


CG0002 

000002 

000002 

0UOOO2 

000002 

000002 

000002 

000002 


000002 
000002 
C 0 0 0 0 2 
00000* 
000005 
000007 
000010 
0 0 0 0 12 
000014 
000016 
000023 
000025 
000027 
000041 
000045 
000050 
00005* 
000055 
000056 
000057 
000060 
000061 
000063 
0 0 006b 
000067 
0G0073 
CC0073 


X(2*NI=x(P*J) 
i (2f u) = y ( J) 
p ( 2 « ^ ) =P ( 2 « J) 
T (2*0) =T < ^ J) 


10 CONTINUE 
12 CONTINUE 


14 rr 

( X ( 2 * J ) 

.GT. 

X 

( 1 i 

J) ) 

GO 

TO 

20 

IF 

( r ( 2 1 u ) 

.LT. 

Y 

l i * 

J) ) 

GO 

TO 

20 

00 

16 1=J, 

100 







IF 

( H ( 1 , 1 > 

• EO. 

li 

.0) 

GO 

TO 

1 * 


X (2 

I ) =X ( I 

♦ 1 > 







Y (2 

* [ ) =Y ( L 

* I ) 







^ < 2 

» I ) =P ( l 

* I ) 







T (2 

* I) = T ( i 

* T ) 








16 CONTI NUr 


1H J= I • 1 

SHOCK = 1 .U 
20 PETUPN 
E NO 


C 

c 

c 

C 

c 

c 

C 


SUBPOUTINF ESTMP 

E5TIMINAT10N OF TOTAL PPESSUkE PATIO FOP CHOKED SECONOAPY FLOW 


IF CHOKF --1 • 0 SOLUTION HAS NOT BtEN FOUND 

r F ChOK L = U.o SOLUTION HAS BEEN FOUND* btCONOAKY FLOW CHOKED 
IF CHOKf = 1.0 SOLUTION HAS BEEN FOUND* SECONOAPY FLOW UNCHOKED 


COMMON 
COMMON 

1 

COMMON 

COMMON 

COMMuN 

COMMON 

COMMON 

COMMON 

1 

2 

3 

COMMON 
600 F OPM AT 
P T OL = 0 
ATOL=l 


X ( 2 * 1 0 0 ) * Y ( 2 * 1 0 0 ) * P ( 2 * 1 0 0 ) *1(2*100) 

xbLP <ioo) fYSLPUou) f amp ( 100 ) « theta (looi *php<ioo) *amsuoo) 

PHS (100) « A SA SS (10 0) * 0 A SOX < 1 00 ) * I SLP 
Xls(2i«2b) *YlS(21t2b) * W < 2 l ) * TAU (26) * NbON I C * N ANGLE 
X SONIC (26 1 , r SONIC ( 2b) *PS0NIC<26) *T SONIC (26) * I SONIC 
AC ONE < 1 00) i YCO nE ( 100) * PCONE < 1 O0) * TCONL ( I 00 ) * I CONE 
XbHD( 100) * YShO(lOO) *OYSUX < 100) *NShO 
XB or ( 100) * YouY ( 1 U0 ) f OYBuX (100) *NBDY 

M TF L * HShP i TO bi f OP * CAMS * DAMP * FUnG * AMP tANbH, APKEF, ASS APS ♦ 
XH* [ M« YPRlM* APPIMmjPPI M* CFLfCYL* CONA * UbU Y * DSHD * END * 

PA MB* YPATlOi PI * CONVA * CONVP*FOI M * NO AT A t NS TOP* 

SOL v/E * CHOkE *CHaNGE* CHAPbE * TYPE*POINT * ST aG 
PTS ( 25) ♦ Apt A (25 ) * WLEAk ( 25 ) * T I TlE < 16 ) TEk*TPY 
( 1 H 1 ) 

,OO01 

,05 


OELP = 1 « 02 
A KEF = 1.001 
HSHP=PTS (nI TEP) 

A PEA (NITtP) = AS ASS ( ISL-M 
Du 6 I = 1 * I SLP 

A PEA (NI TE*) =AMIN1 (AkEa(nITEP) * abaSS ( 1 ) ) 

B CONTINUE 

IF (POINT « NE « l.u) GO TO 10 

IF (APEA(n(TE*) .Gt* 1.0 .AND. AkEA(NITEP) ,LE. aTOL) GO TO 22 
10 IF (NITfP • Gi . 1) GO TO 12 

IF (POINT .EO. ** l • 0 ) HSHPsHSHP^DELP 
IF (^OInT .EO. 1.0) HSHP=HSHP/uELP 
GO TO 26 
12 NLOW=0 
NHIGH=0 
PLOW=0.0 
PMIN=1 .0 
DO lb 1=1 * N I TEP 

IF ( APE A ( I ) .GE. 1.0) GO TU 1* 

NL0W=1 ♦NLOW 


PLOw = AMAXl ( PLOW * PTS (I ) ) 
GO TO lb 


14 NHIGH=1 ♦NHlGH 


0 •:< o u i s 

c o J 1 o 1 

1 j 0 1 o * 

: ooio 7 
0 0 3112 
; : o li / 
0 0 0 i j 0 
'..001 JJ 
:uoi jy 
■0 0 J 1 ** o 
j *j U 1 ■+ 7 
C 3 0 1 ha 
u 0 0 1 r> b 
: a i -> 7 

j 0 1 b 2 

0 V. 0 1 OH 

: c o i o 7 
: ;* o i 7 ^ 
COO 17b 
j o J 2 0 0 

00020 J 
: j • j 2 ii 
C 002 W 
000222 
00022b 
C 0 0227 
fl 0 0 2 <♦ b 

0 0 0 2 4 b 
Co02h7 
0 j U 2 b 0 
0 0 0 2 b 2 
CC02b 3 
0 C 0 2 b b 
C- 0 0 2 b o 
C 0 0 2b U 
0 0 0 2 d 1 


0 u 0 U 0 2 
0000o2 

000002 
0 o0002 
0 0 0 0 U 2 

0o0002 

000002 

000002 


<j C 0 0 0 2 
0 J0002 
000011 
000012 
000013 
000014 
OoOOlb 
u 000 1 b 
000017 
C 0 0 0 2 0 
C 0 0 0 22 
000026 
C 0 00 2 7 
000033 


^ mn=a mini (^iNtHsin ) 

If ( I ■ j • r N . ^T: ■>(!>) A:1 Iu=Ak2aiI) 

lb CON T 1 NO: 


IF 

( ’ j H [ ; 1 h 

• b T . 1 ) 

GO ro lb 


IF 

(p IIN-hLO ■;) 

. LE . P10L-->PMIN) 

GO TO 2i+ 

IF 

( m H I G H 

• E b . 0 , 

A NO ■ NLOrt .(>E. 2) 

uELP = l.)ELP*0ELP 

IF 

( \|H I liH 

• r_ O . U > 

r1SHP = PL‘JW* ;} '!jELP 


IF 

( j H T 1 1 n 

.HO. 1) 

HbbP = PM I N/OELP 


IF 

(-ibHP . 

LE . p L t » ^ > hdHP = PMI ig- (PMIN 

-PLOW) /u.O 

GO 

T f i 2b 




1M IE 

( 4 H b ( P A T N- P L P >*i ) 

• Lp. PT OL* ;, PM 1 N ) 

(iu TO 2 h 


P *AX=1 . ) 
n 2 1 = 1 * j 1 Tb ^ 

IF ( AkF A ( J ) . t T . I . U ) Gu TO 2 0 
IF (^TbU) .EO. PMInI OO TO 20 
pmaX = A>i INI (2 Tb ( I ) * ►MAM 
IF ( P M A X ,ti). PThll) ) A !M A X = 4 P E A ( 1 ) 

2 0 continue 

n-' 1N = A -1 1'r-M 1.0 + A -I In/2.0) 

0 4 A A - A M A ft * ( 1 • 0 ♦ A <vi A X / 2 , 0 ) 

Alphas (U^J \|*l)MAX-PMAXttl)Ml N) / (IJMAA-U 4J M) 

GAMM4= (PHAX-PMlN) / (IJMAX-UMlN) 

HSHP-ALPbA+GAMMM*AhtF * ( 1 .0 +ApLH /2.0) 

HLO W = ( 1 . 0 ♦r'TOL I ^pLOa 
p*M I ini — ( 1 . n -p T OL I *P f* 1 N 

IF (HSHP . LE . HLOvv ,Oh. HoHP .bE, HM1 n> H SMP = HM I N- < PM I N-PL 0 w ) /a . 0 
60 TO 2b 
2? HSHP=HSHP 
CHOKp, = 0 • 0 
PTS(NlTph+i I = HSHP 
60 TO 26 
2a HSHP=PMIN 
CHUKb=l . 0 
PT5 (MITFW+1 ) =hShm 
2 b hi E TOPN 
END 


C 

C 

c 


bObKOU f I NF FSTMw 


ESTIMATION Of TOFAL ppESSukE PaTIO Fuh WLEAK=fciFL 


COMMON 

COMMON 

1 

COMMON 

common 

COMMON 

COMMON 

COMMON 

COMMON 

1 

2 

J 

common 
A VE ( x I * 


X ( 2 * 1 00 ) tY(2*iO0)*P(2*lU0) 1 T ( 2 « 1 0 0 ) 

XSLP ( I 0 0 ) t Y SLP ( 1 (J 0 ) < AMP < 1 u U ) « ThETA (100) * PrtP (10 0) * AMS ( 1 00 ) 

PHS ( i 00 > iASaSS(IUU) « O ASuX < 1 00 ) . 1 SlP 

X I S ( 2 1 * 2r> ) 1 Y I S ( 21 ♦ 2b ) * W ( 2 1 ) ♦ T aU ( 26 > * NSUnIC * N ANGLE 

X SONIC (2b ) t Y SONIC (26) .PbUuIC (2b) * T SON 1C \ 20 I f I SONIC 

XCONE (100) * YCOnE (100) * PCUIML ( i .J 0 ) • fCONt (100) n I CONE 

XbbL)( 100) 1 YSHO (100) ♦OYSOA < 1U0) ,NSHO 

XHOY (100) « YdOY ( 100 ) *OYbLM ( 100 ) , NbOY 

* T F L *HSHP < Tub * r OP ♦ GArtb * bAMP t FUNG* A MW * ANuH * APhEF *ASSAPS* 

XPr^ I M * YPW 1 M 9 APP I M . UPh I M • CFL »C >/L * CON A . ubU Y ♦ OSriD *ENOi 

PA^nfYPATl(MPl«CO>i\/AfCON\/^iP'NlM«l\)UATA»NbTuPt 

SOLVE ♦CbOKp *CrlANG£f CHakgE » T YPE t HO I NT * ST aG 

P T (2b ) ^ APT A ( 2S ) »^LEAh(2b) *TI fLL(lb) « N f Ilk^TPY 

X2) = (Xl + X2)/2.‘) 


N L O w = 0 


vJ4AX = 0 

NM I IjH = 0 

plow=o . n 

J MAX=1 . 0 
J HI Gri= 1.0 
pELP- 1.02 
0 0 1-J I = l.MlTf-K 

IF ( ArtS ( wLh ak ( I) ) .bT. 0.0) <iO Fo 10 
N >1 A X = 1 ♦ N m A X 

p H A X = A f 4 INI ( PTS ( I ) « PM A A ) 

JO CONTINUE 



u*00 Jb 
000037 
0 G 0 0 4 u 
000044 
000047 

ooooso 

000064 
000067 
000060 
0 0 0 0 64 
1 0 0 0 6 d 
000071 
C 0 0 0 7 4 
000077 
000107 
0G01P1 
000 13P 
G J 0 1 <+ b 
000147 
0001 64 
000160 
000 1 60 
000164 
C00170 
000171 


000003 

0G00Q3 

000003 
0 0 0 0 U 3 
000003 
000003 
000003 
000003 


000003 

C00003 

C 000 34 
000064 
000067 
C 0 0 0 6 1 
000063 
000066 
000073 
000076 
00007b 
000077 
CGQ101 
000101 
000104 
000111 
000116 
000116 


JO 14 I = l*'iITfw 

if <*LF4K<n .to* o.o) 00 ro 14 

It </»LF AfV < £ ) • 6 T . T F L ) GO TO IP 

If (PTb(I) .l^I* hi* AX) GO TO 14 
M |_ O W = 1 ♦I’dLOW 

HLOvg = AMAX 1 (PISII) * PLOW) 

IF (PLO* .60. PTsd)) wLUrf= *LtAK ( 1 ) 
oO TO 14 

1? If (PTsU) .GT. pmaA) GO TO 14 
• JH I GH= 1 *NH I GH 
Ph I Gh = A ; M g 1 (HTS < I ) tPHIGH) 

If ( PH I GH .f(j. H I S ( I ) ) wM I GH = «fLt AK ( I) 

14 CONTINUE 

16 If (\iL(H .GT. 0 .AGO. NhIGm .GT. U) GO TO 16 

IF (MMAK .Gf. 0 . A i^t) . NH I Gh . EO. 0) hShP = PTS ( N 1 TEH ) *L)ELP 

IF (nMAX . Gci • 0 .AMO. NLOw .EG. 0) HSHP-PTb(NlltK) /OtLP 

IF (MHAX . G T . 0 • A iMt> • imlOw .GT. 0) HSHP = PMAX- ( PM A X-PLOwl ) /? . 0 

GO TO PP 

18 IF UdS(ftMlGH-WLOw) .Lt. 0.001) GO TO dO 
H^HP = PH I GH— (PH I GH-PLOW ) / 4 . 0 
GO TJ PP 

P0 DPU*i = ( PH I GH-PLO *j ) / < tv H I G h - w L 0 ’* ) 

HSHP=PLOw ♦UPL)w m ‘ ( wTFL-4LUw ) 

PP PE TURN 
E'MO 


S JbRQUT I Nt STQRtlJ) 


C 

C STOWAGE OF PEPTIimENT INFORMATION ALONG SLIPLINE 

C 

COMMON X ( P * 1 0 0 ) * Y ( P * 1 0 0 ) » P ( P * 1 U 0 ) f T < P * 1 0 0 ) 

COMMON XSLP< 10 0) »YsLP(100) *AMP(10U) * rHtTA(lOO) « PHP ( 1 0 0 ) * AMS ( 1 0 0 ) * 
i PHS (100) *ASAsS(luU) «O aSL)X ( 100 ) * ISLP 

COMMON X I S ( d 1 * Pb ) * T I S ( P 1 * Pb ) * */ ( Pi ) * T AU ( Pb ) * NS ON I C * N ANGLE 
COMMON X SONIC (Pb) * YSO sI IC ( Pb) * P SONIC (^b) * TSONIC ( Pb > * I SONIC 
COMMON XCONtUOO) •YCUNEllOO) .PCOMLU00) .TCONtUOO) iICONE 
COMMON XsHlXlOO) *fsHDllo0> tL)YSL)X(lOO) * NSHU 
COMMON X6UY ( 100) « YhUY (100) *i)Y6DX < 100) *NBDY 

COMMON *lTf L *HSHP. TOS, TOP < GAMS * GAMP , h UNG i AMR , ANuR * APREF * ASS APS, 


1 XPP l M * YPR IM * APK I M * OPR I M *CFL *CVL * CON A * ObUY * OSHO * END * 

2 PA Mr* lYFATlOtPI * CON\/ A ♦ CON VP * FUl M « NO A T A % NS TOP * 

3 SOLVF •CHOrif * CHANGE * CHARGE *TYPEfPOlNT*bTAG 
COMMON PT S (PS) • Are A ( P6 ) * */LE AK ( PS ) ♦ 1 I TLE ( lb ) ♦ Nil EK * TRY 

FUNA ( G • AM ) = ( (G+l.0)/P.U>* w (-(G+l.0)/(P.0MG-i.0) ) )*1.0/AM*(1«0*> 
1 (G-l . 0 ) /P. »)*AM*AM ) ** ( (G* 1 • 0 ) / (P. 0* (O-i . 0 ) ) ) 

FUNM (G»HH) =SOPT (F.O/(G-l.O)*(PM»M-(G-i.0)/G )-!•()) ) 


XSLP ( ISLH) =X (P* J) 

YSLP( I SLP ) - Y ( P * J ) 

PHP ( I 5LP ) =P < P * J ) 

THET A ( I SLP ) =1 ( P * J ) 

AMP ( I SLP) =FUNM (GaMP * PHP ( I sLP) ) 
IF (STAG .GE. 0 . u ) GO TO 1U 
PHS ( ISLP) =1.0 
AMS ( I SLP ) =0.0 
ASASS (ISLP) =600 .0 


GO TO IP 

10 PHS ( ISLP) =PHP ( ISLP) /HSHP 

AMS ( ISLP) =FUNM (GAMS* PHS ( I SLP) ) 
ASASS ( ISLP) =F UNA (G AMS. AMS ( I SLP) > 
IP RETURN 
ENU 


> .< 0 0 i 3 
' ~ 0 J i i 

' : o o i j 
: : c c i j 

* o 0 1 j 

: „ o a i j 
: : j o 1 3 
: oo ij 


■ '.o J 0 1 5 
C ' j 0 0 IJ 


^ C 0 U 1 3 
i K, 0 0 1 J 
0 0 0 j i J 

j o G o 3 3 

C J 0 0 j 7 

a o o j j 7 


C 0 00 37 
0 0 0 0 44 
CGQOS* 
C 0 0 0 o 4 
C 0 0 0 / 4 

coo 1 04 

0 0 0 1 0 b 

coon i 

G 0 0 1 J 0 
G v 0 1 3 i 
0 0 0 1 *+4 

G001b3 

00 0 1 1>4 

0 u 0 1 55 


^ J^4,KJT T J-. COA Vr_ < / #Wr. • YritfE • Pai/L # I A V t * I 1 * J i t I 3 9 J2 ) 
C 

C A S/ F. * * N I ' jl-» bU.‘ )K{,)U f J ■'JC 


U 0 


bOP 


1 


1 

;> 

A 


1 


1 

1 


LfyA'J'iU \ ( s , i !j (> ) • Y l 3 9 i im ) ,31/9 l U 0 ) 9 r ( 3 , i u 0 ) 

c MM.i-i »S|.^ ( i • » . rsLp< loin , A^uum . rit-.TMiuu> .wnooi .AWb(ioo) » 

< 1 0 V ) 9 <-bubb ( 1 u U ) * l) 4 blOX ( 1 U 0 ) « I bL^ 

COMMON * l * Y I b ( 3 1 « 3b ) * vl ( t i ) < f 4U < 3h ) 9 Mb Oh I C 9 NAfMNLt 

t DM MON < b ) nc ( ) ♦tiOulK^h) • ^bON i C ( 3t> ) « T =>UN 1 C l 3b ) 9 I 50MI C 

COM -I'J 'J a OH-' I J C 0 ) OCU jr. ( 1 uo ) * PC Dime. < i >0 ) « TCUNc. ( 100 > * I CONt 

OH^'H X b -1 0 ( ] ( ) * YbHu ( i u U ) * 0 Y5b X ( 1 UU ) 9 NbHt) 

COMMON A -V .1 Y <10°) « YoUY ( 1 U 1 J I »iJT biJ A ( 1 U 0 ) 9 NhiDY 

COMM-jN VT^-'L * TUb 9 i UP * GAM :> * GAHH * FUi\|G 9 Af-'w , ANbKf APPF F9ASSftPb9 

AH-J 1 « YPP f M f Ak*^ 1 M i oPX { M f CF LtCvL»C0N4iL>bUY 9 DSHD ♦tNO» 
PA4-}*Yr*-aTI(i*Kl,Cu^\/A<CONVK*H)lM*lSiUATAtiNibTOMf 
SOLVE. fCMUM:. •CHANtjF ,CHrtKCih * T Y PE 9 PO I NT * b T aG 
COMMON p T b ( 3b ) »4'4 A(^i) 9 L E A >\ (3b> H I I Lt <1M> 9N1 1 EK 9 TPY 
C'JMMOiO/C^LOr/lHLor 9 X b T Ak T 9 Y 3 T AP f fAbPArsMYSPANtbCALFtSPAlvUAxIbf 

*DPG j 9 YOp<H 9 X bHF T 9 Y bt-)F I » KXK ( i <4 ) t pp (1 4 ) 9 X(JU Wi\i ( X 0 0 ) *YAC'hiOb(lUO) 
COMMON/CL^LOT/XKt:. N, Y^t'J< oa 9 NmHn;\, ALAhLL ( 1 0 ) • YLArtF L ( i 0 ) 

COMMuN/b^F CL/TtST 9UPG3t r 9 r>PAbt T 

AVf (M»X<f) = (X|+A^)/^ t u 

FUNP (('19 AM) = ( 1. 0 ♦ (G-i . ,i ) /3 . 0 * aM*AM ) l - G/ ( G- i . u ) ) 

FO^MaT ( i -4 1 • //3\ A • b^HCONO 1 T I UNb bONlC FLOW MAYr WttN KtACHtU 1 «.i 

bU5*<OuTJ'lr Cl»AVr. ///) 

F jKM^T (/vX»bHXAvh -y * b 9 h X 9 nH Y a Vl =)- o • 5 f hX 9 oHH A vC =F^ « b 9 ^ A * 6H TA VK 
=FO.b) 


P'4AX = FUNH ( Cj AMP 9 1 , ti ) 

XAVL = AV'! r (X ( I 1 9 Ji ) 9 X ( I / 9 J/ ) ) 

Y A v / 1 = A \ZC ( Y ( 1 1 . J 1) 9 Y < I / 9 J cf ) ) 

^AVt = AVF(P(f i,Jt) 9 P ( n 9 J/ ) ) 
TAVt=AVF ( T< I i • Ji ) 9 T ( I/9 JP) ) 

IF ( H A . L T . PM AX) NO fo 10 

WPIH: (5tb0 0 ) 

•NX I r ^ (b9b0/) YAVttMAVtf TA\/t 

CALL O’JTbLP 

IF <CH(KF .FO. -1.0) CALL OUFLYK 
IF ({PLOT . F 0 . 1 ) CALL PLOlL 
CALL EXIT 
10 kFJUPN 
End 


oooon 

GGOOll 

00003b 

OOOOhU 

000044 

0 0 0 0 5 i 
CviOObi 
0 0 0 0b^ 

0000 to 
00007^ 
000073 
G c 0 0 75 
00007b 
GOOIOd 
000107 
000115 
000 1 1 7 
000135 
000137 
000150 
000133 
0 0 0 1 40 
G 0 0 1 h 7 
GOO 150 


SUHPOUTINt; COEFF ( XP9 YP9PPb9 ANNP 9 CFb 9 NAM > 
COEFFICIENTS TO the ChAKaC TEP I bT I C EQUATIONS 
DIMENSION CKS(lb) 

FUNM ( G 9 Ph ) =SQP T ( 3 . 0 / ( G- 1 . 0 ) * 0 ) / (i ) - 1 . 0 ) ) 

AMP = F LlNM ( (t AM 9 PP b ) 

AMUP= AS I N ( 1 . 0/AMp) 

ANOPO=ANNP+ AMlJP 
AN5MU = AN(iP-AMUP 
CFb ( 1 ) =T A .m { ANGPU) 

CFS (3) =TAn( ANGMU) 

CFb ( 3) - (i A ^ * P P S 
CFb ( 4) =CF S ( 3) 

CF b ( 5 ) = AMP^AMP 
CFb(b) =CF b < 5 ) 

CFb (7) = T A N ( AMUP) 

CFb ( 5) =CF s < 7 ) 

CFb (9) =b!N( ANNP) 

CF b ( 10)=CFS(V) 

CFb ( 1 n=bIN(AMuP) 

CFS ( I3)=CFb( 1 1 ) 

CFStI3)=Y‘-’ 

CFS 114) =CF b ( 1 .3) 

CFS ( 15) =bl 4 i ANGPo) 

CFS lib) =S [N ( AM,k»j) 

KFTUPN 
t Nl) 
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c 

c 

c GOO l*+ 

oooow 
C j 0 0 u 
0014 
: joo 17 

j ■ J 0 o 2 u 
000021 
CCG02S 
G 0002 7 
0000 JO 
0 ij 0 0 3 J 
000042 

0 000s4 
00006b 
000103 
000131 
C001 34 
000136 
000143 

000 1 sO 
000 1 37 
GOO 1 bO 


SiJhkOUTIMF i ) z r> X i > y (vm* J* ALPHA ,TMETA.OtLw*D>MUT*** Y > 

ThAN-jFOPMA f ION IiMTtbKAT 1 ON 

COMPLEX F «(i • H *UK «f)Z*UFOZ 
J [MEnSION A ( 3) < d ( 3 ) »Ux ( 3) «OY (3) 

A ( 1 ) - W 

a ( ?) =w-n*/2.o 

A ( 3 ) = m/ - i 1 '* 

H ( 1 ) = Trip 1 A 

*(?) =THt TA-UT/2.0 

4 ( 3) =ThE T A-l) T 

JO 10 1 = 1 * 3 

0/ = CMPLX ( Urf * -OT > 

CALL DFOOJ(AU) * *J * ALPHA * d ( 1 > * Ot L 4 f UE OZ > 

K = CMPLX ( COS ( H ( I > ) *slN Id II > > > 
t, = f-:XP t-A ( I ) > *F 
H = E. X P ( A ( I ) )*C0NJG(F ) 

OF^G^DFOZ^OZ-CON JG ( H* JF OZ*OZ/4 # 0 > 

OX ( I) s«F.AL (OF > 

[)i ( I ) = AI«AG (OF ) 

10 CONTINUE 

X=(UX(1)*-4 # 0*DX(2) + 0X13) )/b*0 
y=(|)Y(l) ♦4.0*i)Y 12) +OY ( 3) ) /b.O 
PFTUPN 

End 


C 

c 

c 

0000 1 1 
C J001 I 
0000 12 
GCOOIS 

0000 1b 
Gu 0 0 20 
000034 
000034 
000071 

0001 10 
000137 
000140 


SUB BOUT INF L)FDU«(w*Wj*ALPHA*THETAtDtLw*l)Ff)2) 

EVALUATION OF TP ANSFOPM A T I ON OLpIVmTIVE 

COMPLEX P*0*k*UF0Z 
P I = J , 1416927 
A=PI /ALPHAS ( P-w J) 

H = PI /ALPHA* rut TA 
C = PI /ALPHA*l)ELW 

p = CMPLX ( SINH ( A) *COS (d) *-CUSH t A) *3 IN (d) ) 

J = CMPLX (COSH ( A ) *COb <d) -COSH (C) » -S I Nh ( A ) »S I N < ti ) ) 
P=CMPLX (COSH ( a ) *COS( rt) -1.0*-olNH(A)*sIN{d) ) 

IF <i)ELW .£0. 0.0) L>FOZ = -P I / ALPHA^P/k 

IF (OELW .Nt. U.U) OFljZ = PI /AlPhA* (P/O-P/P) 

PETUPN 

End 


C000 1 i 
C 0 0 0 1 2 
0000 13 
0000 17 
G0002U 
00002s 
000032 
C0003S 
00003b 
000041 
C 0 0042 
COO 044 
OOOOS4 
C C 0 0 6 1 


SUbPOUTINF CONIC (XP* Y^UP* VP* VUPtGAM) 

C 

C CALCULATION OF CONDITIONS IN A CONICAL F LO«/ FlLLU 

C 

DELUP=O.OC01 
£PPOP=0. 000 1 

S [GSJ= (GAM-1 . 0 ) / (GAM-*- 1 . U ) 

OELTA=YP/XP 

TEST = AbS (DELTA) -ahs ( 1 . G/VUP) 

IF (AHS(TFST) .Lt. Ekh-cjk* AbS ( jt L T A ) ) GO TO 12 
SIGNT=TESr/AHS (TFST ) 

JE L U P = S I G N T * D F L U P 

10 CALL PUNGE ( UP « VP f VUP « ■ lELUP f s I (iSN ) 

PFbT = TtsT 

SIGNP=PFS r/AMS(PtST) 

TEs T=AHS ( DELTA ) -ahs ( 1 . O/VUP ) 

IF ( A B b ( T E o T ) .Lr. tBBOk* Abb ( DLL I A ) ) GO TO 12 
SIGNT = Tt ST/AdSnpbT ) 
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000054 
0 0 0 0 bb 
000101 
000103 
000103 
000104 


IF (SIGNP .6-0. S I <iNT ) GO TO 10 

uELUP=-0.S0*( ( 1 • u/ljfc LTA ) ♦ VUP ) /FUNV ( UP « VP , vuP ♦ S I GSQ ) 
IF (OELUP .tu. 0.0) GO TO 12 
GO TO 10 
IP RETURN 

6: no 


c 

c 

c 

000010 

coooio 

000015 
000037 
000061 
CuO 100 
C 0 0 1 0 1 
000107 
C 00 1 1 7 
0001 1 7 


bUdROUTlNF PUNGE (UP* VP* VUP*OU* SIGSU) 

RUNGE KUTTA INTEGRATION OF TA YLOr-M ACCOLL I EuUATlON 

PEAL K1,K2*KJ*ka 
K1=UU*FUNV (UP* VP, VUP*SIbbU) 

K2 = DU*FIJNV ( UP +DU/?. 0 * VP+0U/2. 0*VliP*K 1 *DU/6 . 0 * VUP + K 1 /H . 0 * S I GSQ ) 

K ^i)*FlJAiV<UP + l)U/?.0.\/P*OU/2.0*VUP*Ki*C>l»/d.U.VUP*K2/a.0.SIGSQ> 

KA=Do»FUMV <UP»OU. VP*ikJ»VUP + *J*lfU/2.0 » VUP»K3, b I ijSQ I 
UP = UP+IJ(J 

VP = VP+OU* < VUP + (K1+K2+K3) /6.0) 

VUP = VUP + (K 1*2.9*K2*2.()»K3 + K4) /0.0 

RETURN 

END 


C 

c 

c 

000007 
000010 
000014 
000017 
000024 
C 0 0 024 


FUNCTION FUNV(UP, VPf VUPf SIGS u) 

T A YLOR-M ACCOLL I EUUATIUN 

F UNI = (1.0 + VUP**2> 

FUN2= ( 1 .O-SIGSO) * (UP+VP*VUP) **2 
FUN3=(1.0-SIGSU*(UP**2+VP**2) ) 

FUNV=( 1 .0/VP) *<FUNl-F UN2/FUN3 ) 

RETURN 

END 


C 

C 

C 

000007 
C 0 0 020 
# C 0 0 027 
000040 
0 0 00b 1 
000062 
000070 
C 0 0 0 70 


F UNCTION PMER < AMP * ANGP * AMU * GAM ) 

PRANOTL M£ YEP EXPANSION ANGLE 

AK=SORT ( ( GAM- 1 . 0 ) / ((* AM + 1 # 0 ) ) 
FAMP=SQRT ( AMP* AMP- i . 0 ) 
THETAP=ATAN(AK*FaMP) /AK-ATAN (FAMP) 
FAMQ=SQRT (AM(J*AMig-i # 0) 

THETACl = A TAN ( AK*F AMU) /AK-AT AN ( FAMU ) 
PMER=ANGP+ ( TH6 TAU-THETAP) 

RETURN 

END 


C 

C 

c 

000006 
C 0 0 0 06 


SUdROUT INE ASTAR(MACH*APEA*C?AM) 

CALCULATION Of Mach NuMbER a FUNCTIun OF A/A* 
REAL MACH 

FUNA<G.AM)=<2.0/IG*1.U><M1.0*<G-1.u>/2.0*AM*aM> > «* 
1 ( (G+i.0)/(?.0*(G-l.O) ) ) 
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0 ; 0 0 2 7 


wGO-O 

■: o o o ^ i 

uOO 0^3 
CGOOSb 

oooo^o 

v;0 OOb* 
0 C 0 0 fa 7 
GOO 0 72 
000073 
000103 
u u 0 1 04 


F 0 N U ( G 


1 


,4m ) =am«c.'.u/Iii*i.o>*<i.u» iu-i.o)/2.o*ah*am))** 
< ( 3.0-G) / < 2. 0* (0-1 . 0) ) ) 


i re.K = o 

KPPUP=0.00001 

10 [Ttri=lMTr* 

F = M A C H - F L)' J A ( GAM * MALM) / A*>i A 
i'_lp|)iJl= 1 „ O-^UNb (Gam*MaCh) / A -< t 4 
MftCH = MACH-H /UH)M 

IF ( I T p P . I_T. l 0 :> 1 GO TU 12 

]? if**' U rtb(F/l)FUK/MArH> .(iT. tW-VOK) liO TU 10 
1 <4 P p TUAt J 
tNl) 


F UnC T I 0 \l P 3 1 ( G * A -i 1 * Ot L > 

itrtUS fXPA-JblO.4 FUW ^tSbUWc HATH) 4CK0SS A, 4 uULlQUt SHOCK 


C 0 0 0 u fa 
000007 
300010 
0000 1 1 
G 0 0 0 1 3 
C 0 DO 1 fa 
OCOOib 
000017 
00 0 02b 
0000 jA 

OOOObb 
0000 7b 
000077 


t XP=7 • 0/2 . 0 
AM2 = AMI* AMI 
AM4 = AM2*AM2 
AM6=AM2* AM4 
AMb = AM 1 ** aM4 
rt F T A = A M 2 - 1 *0 
A=1 • 0 


rt=G*AM?/boRT (^t Ta ) 

1 AMfa* 3 . 0 / 4 . 0 MG+ 1 .U) *AM 4 -AM 2 * 2 . 0 /i.o) 

PiI*A*ri*UEL*C*l)EL**2*!>*0£L**3 


PpTUPN 

ENO 


000002 

000002 

0 0 0002 
000002 
000002 
000002 
000002 
000002 


000002 
000002 
000003 
00000b 
00001 1 
0000 13 
00001b 
000017 
C 0 0 0 22 
000023 
00002b 
000027 
000032 
00003b 
000037 
00004O 


C 

c 

c 


SUrtROU T I nF CUNF 


CALCULATION O^ - CONIC P LUG COjTOUp 


1 


1 

2 

3 


COMMON X ( 2 ♦ 1 C 0 ) * Y (2*100) . P ( 2 . 1 OO ) »T (2.100) 

COMMON XSLP ( 1 OO > . YbL*-' < 1 00 ) . AMP ( i Oo ) . ThFT A < 1 00 ) . PnP <iOO> * A M S ( 1 U 0 ) 
PHb (100) * AS Abb < 100) *04bUX < 100) . 1 SLP 
COMMON X l S ( 21 *2b> *Y ib <21 *2b) . N < 2 l ). UU (26) ♦ NSON 1 C . N ANGLE 
COMMON XbONl C < 2b) . Y SON 1C ( 2b ) .PsuN I C ( 2b ) * T50N I C ( 2b ) . I SONIC 
COMMON XCONE (100) * YCOnp (100) . PCONt ( 1 uO ) . TCONt ( i 00 ) . ICONt 
COMMON XShO ( 100) * YbrtO ( 100) * UY3UA ( 1 0 0 ) « NSHG 
COMMON XBOYUOO) .YhOYdUO) tOYMOX(lOO) .NbOY 

COMMON ^TFL*HShP* TUS* TOP .GAMS. GAMP. FUNG* AMK.ANoH.APP£F . AbSAPSt 
XPPIM* YPMIM* AP*lM*DPRiM*CFL*C\/L*CONA.UbUY . ObHO.tNU* 

PAMd* YRAT TO . P I . CONYA * CONY* * f U 1 M . ND A T A .NbTUP * 

SOL YE ♦ CHOKE * CHANGE * CHARGE ♦ TYPL.POINT.sTmo 
COMMON PTS( 2 b) * AkF A ( 2 b) **LtAK < 2 S) . TI TLt (lb) .Nl IL p.TkY 
NHO Y =4b 
iji v=44.n 

ri=-T AN (CONYP^CONA ) 


A = L)fcil.) Y/2 • 0 

X0=-UPPlM/4.0 

Xp=-A/d 

OFLX= (XP-XO) /O I Y 

XHDY ( 1 ) =X 0 

YbOY ( 1 ) =A*R*X0 

OO 1J I =2 * YHOy 

XMi)Y ( I > = XPOY ( 1 “ 1 > ♦utLX 

YfaOY ( I ) =A*M*AKUY ( I ) 

10 CONTINUE 
R p T U P N 
P J'J 



SUHRUUT I Nf. F I NO OYPUX * ^UWF ) 

C 

C LOCATION OF ShkOuI.) COnTOUr POINT 

c 


0 0 00 0 7 

COMMON 

■: o o o u 7 

common 

i 

0 00007 

i 

COMMON 

00000 7 

COMMON 

003007 

COMMON 

0 0 0 0 u 7 

COMMON 

v 0 0 0 0 7 

COMMON 

•j v 'j 0 0 7 

COMMON 

1 


1 

2 



0 0 0 0 0 7 

COMMON 

J o 0 0 0 7 

bjO FORMAT 


G 0 0 0 0 7 


X ( 2 * 1 0 U ) * Y ( 2 * i 0 0 ) * P ( 2 * 1 u 0 ) * T C * a 0 0 > 

X SLP ( l U 0 ) «YSLP(100) *a3P(100> * TheTa(IOU) * PhP ( l 00 ) ♦ AMS ( 1 0 0 ) * 
^HS (10 0) *ASAbb<100) *DASDX ( 1 0 0 ) * I SLP 
*Ib<21 *2b) * Ylb(2I ^h) ♦ w ( kr 1 ) »Tau(^ 6| *iMbONIC«NANGLE 
XbONlC(2b) * YS0NIC(?6) *PbONlC(2b) <TS0NlC(2b) * I SONIC 
XCO'SjF ( i 00 ) * Y CO'jF { 1 0 U > * PCONE < 1 J 0 ) * T CONE (100) * I CONE 
XbHD(iOO) *YbH 0(100) *OYbDX(iOO) »NbH'j 
X -SOY ( 100) *YbDY (100) «OYHUX ( 100) iNHUt 

riTFL*HSHP,TUS* r OP *GAMb*OAMP*FUNG* AMR* AMUR* APREF * ASS APS* 
XPPlM*YPKjM*AFPIM,uPPIM,CFLiCYL*CONA*UbUY* OSHD * END * 
PaMP*YPA 1 IO*PI *CONvA*CONVR *Fl) IMvNOATA *NSTOP* 

SOL V£ * CmOkE * CHANGE *CHARbL*TYPt*POINT • bT AG 
P T S ( 2 S ) iA^hA(^) *wLtAi\(2S) *1 I f L E ( 1 S ) * N I 1 1 K * T K Y 
( 1H1 ,//3 7x* b (H^HROUfJ POINT (XP) LIES OUTSIDE RANGE uE INPUT 

i contour//) 

FORMAT <//24X,RHaSHU( 1 ) =F ri • b * 1 bX * AH X P =FH . 5 * 1 bX * 1 2HXSH0 ( NSH() ) =Fa 
1 .S//) 


000007 

0 u 0 0 0 7 

0 0 0 0 0 7 
0000 1 1 
G0Q01A 
oCOOlb 
0 C 0 0 1 S 


n04 FORMAT < Ini * //38 X * S 1 hbOd Y POINT (XP) LIES OUTSIDE RANGE OF INPUT C 
LON TOUR//) 

A;jr> FORMAT ( //24X * RHjhU Y I 1 ) = F 8 • S * 1 bX * 4H XP =F R . S * 1 SX * 1 2HXBD Y ( NBO Y ) =Fm 

I • b// ) 

IF (SURF .t<J. l*o» GO TO 14 
IF (NbHi'j . G T . 1) NO TO 1 J 

Y P = Y S H J ( 1 ) 

0 YPOx = 0 . 0 
GO TO 20 


00001b 

CC0027 

C00032 

C U00D4 

0 0 0 0 bb 
C 0 0 064 
000073 
00007b 
C 0 0 1 0 1 
000101 
000102 
G0Q102 
000113 
00011b 
C 00 1 40 
G001A1 
000 lbO 
0 0 0 1 b7 
000 lbO 


10 It (XP .GF. X S h u ( 1 ) • AND, XP * LE # XShO(NSHD)) DO TO i2 

AJ R I T E ( b * b0 0 ) 

rtRlTt (b*b 02 ) XSnU(l)*APtAbH’UNbHO) 
call exit 

1? CALL SINTP ( XSHU* rSHD*NStiu* XP * YP ) 

Call s i ntr ( ashu * oysua * nsho *xp*uypua) 

GO TU 20 

1^ IF (mBOY .GT. 0) GO TO lb 
YP=0. 0 

uypdx=o*o 

GO TO 20 

lb IF (XP • Gt • XpDT( 1) • ANU • XP .Lt. XBD Y ( NR) j Y > ) oO TO 18 
WRITE ( b * b 0 4 ) 

WRITE (b*b06) Aril) Y ( 1 ) « XP* XttO Y ( NrtD Y ) 

CALL EXIT 

18 CALL 5lNTP<Xriur*Ybl)Y*N6UY*XP*YR) 

CALL S I NTP ( XHD Y * D Y bDX • isIbD Y * XP * U YPUX ) 

20 RETURN 
End 


C 

c 

c 

0 j00 1 0 
CC001U 


000010 
C 0 0 0 I U 
OGOOlu 

ooooiu 
0000 10 
0000 10 


000010 
3000 1 0 


SUBROUTINE A JAX (XP* YP* ALPHA* ASEC*DADX) 

CALCULATION OF F|_Ow AREA IN bECONDAR Y PASSAGE 
COMMON X(P*100) * Y (2*100) *P(2*I00) *T(2*i00> 

COMMON XSLP( 100) * YSLP ( 1U0) * AMP <I0O)*ThETA( 100) *PHP ( 100) * AMS ( 100) * 
I p 8S ( 100 ) * ASASb ( 1 00) *OASUX ( 100 ) * ISLP 

COMMON X I S ( 2 1 *2b) *YlS(21*2b) * W ( 2 1 ) • T AU ( 2b ) *NbONIC*NANGL£ 

COMMON X SON I C ( 26 ) *YSUNIC(26> *PbONlC<2b) *TS0NlC<2b) *IS0N1C 
COMMON XCONt (100 ) * YCOnE ( 1 00 ) *PCONE(100) *TCONE(iOO) *ICONE 
COMMON XbHO ( 1 00 ) , YSHD ( 100 ) *OYSOX ( 1 00) *NSHD 
COMMON XriOY (100) * YriOY ( 100) *UYbUA ( 100 ) * NBD Y 

C 0 MMO g ri TFL * HShP * Tus* TUP*GAMb*GAMP*FUfgG* AMR* ANbR* APREF*ASSaPS* 

1 APPIM, VPRlM*AKKlM,OPRlM*CFL*CYL*CONA*DriDY*OSHD*END* 

2 PAMB* YPA 1 10* PI * CON vA * CO(g(/R * FUI M *NU AT A *NS TOP* 

3 SOLVE * CHO*r * Ch ANGE * CH ARGt * T YPE • PO I NT * bT AG 
COMMON p Tb(2b) *A4F A (2 t) *riLEAK (2b) * TITLE UM) *NIIER, TRY 
COMMON/HNL VR/xSUm ( 100) * YSUM ( 1 OU ) *OtLSHU ( i 00 ) * ThE r AS ( 1 00 ) * 
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00001 0 
000017 
C 0 0 0 1 7 

000017 

000021 
000022 
000022 
00002 * 
000025 
000030 
000035 
0000*3 
0000*5 
0000*6 
0000*7 
000053 
00006* 
000066 
00007* 
000076 
00011 * 
00012 * 
000126 
000131 
000136 
0001*0 
0001*5 
0001*7 
C 0 0 1 60 
000177 
000221 
000221 


000010 

000010 

000011 

000014 

000016 

000020 

000021 

000023 

000027 

000031 

0000*0 

0000 ** 

0000*6 

0000*7 

000050 

000051 

000051 

000053 

000054 

000056 

000057 

000060 

00006 * 

000066 

000073 

000075 


1 CF‘SHD (100) , ACNE. (100) , YCNt ( 1UU ) ,UELCNE <100),THETAC(100), 

^ CFCNE(lOO) , RE Y PPM, POP, AUR,\/OP,REYSEC,POB*AOS*VOS*PEX,XSCALF 

A VE (XI , X2 ) = ( XI *X2 ) /2 • 0 
600 FORMAT ( 1H1 ,//2BX, lHA4f//) 

oO 2 FORMAT <25X,55HUNAdLE TO OBTAIN CONVERGENCE IN SUBROUTINE A JAX * X$ 
1LP =F6.5fBH, Y5LM =Fri.5) 

I = I SLP 
ITER=0 
ALPH A=0 . 0 
ERROR=G .0005 
XP=XSLP ( I ) 

OYPDX=TAN(TH£TA(I) ) 

CALL FINO(XP,YP* a*2.0) 

IF (ISLP .EQ. 1) PEST=0.0 
10 I TER= 1 ♦ I TER 
XREF = XP 
YR£F=YP 

B = - 1 .0/AVE<A,DYPQX) 

XP= ( YSLP ( I ) -YREF+A*XREF-B*XSLP (I ) ) / ( A-B) 

CALL F I NO (XP»YP*A*2#0) 

TEST=ABS(YP-YREF> 

IF (ITER .LT. 100) GO TO 12 

IF (PEST .EQ. 0*0) WRITE (6*600) ( T I TLE < K ) * K=lfl2) 

WRITE (6*602) XSLP(ISLP) » YSLP (I SLP) 

PEST = 1.0 
GO TO 1* 

12 IF (TEST .6T. ERROR*YP) GO TO 10 
1* CALL SHLYR (ODSOX) 

YP=YP-DELSHD ( ISLP) 

A = A-DOSDX 

ALPHA=ATAN(AVE ( A,DYPUX) ) 

ASEC= ( YP*YP**FDIM-YSLP <I)**YSlP(I)**FUIM)/COS (ALPHA) 

DAOX= ( 1.0*FDIM) * (YP**FDIM»A-YSLP< I ) **FL)IM*DYPDX) /COS (ALPHA) 

RETURN 

END 


SUBROUTINE SPL INE ( X * Y»N» SLOPE t DUMMY ) 

C 

C CALCULATION OF FIRST AND SECOND DERIVATIVES 

C 

DIMENSION X(100) * Y ( 1 00 ) »S(100> * A 1 1 00 ) *6(100) * C ( 1 00 ) *F ( 1 00 > * W ( 1 GO ) * 
i sb ( loo) * g ( i oo ) tEM(ioo) » slope ( ioo) 

DO 10 1=2, N 
S ( I ) = X(I)-X(I-1) 

10 CONTINUE 
NO= N- 1 
DO 12 I =2 , NO 
A ( I ) = S(I)/6.0 
B(I)= (S(I)*S(MI ) /3 , 0 
C(I>= S(I*l)/6.0 

F ( I ) = (Y(M)-yiI))/S(I*l)-(Y(I)-V(H))/S(I) 

12 CONTINUE 
A (N) = -.5 
B(l>= 1.0 
B (N) = 1.0 
C ( 1 ) = -.5 
F ( 1 ) = 0.0 
F ( N ) = 0.0 
W ( 1 ) = 0(1) 

SB ( 1 ) = C(l)/W(l) 

6(1)= 0.0 
DO 1* I =2 , N 

W(I)= ri(I)-A(I)*SB(I-l) 

SB ( I ) = C ( I ) /w ( I ) 

G ( I ) = <FU>-A(I)*G<I-i) )/W(I) 

1* CONTINUE 
EM (N) = G ( N) 
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00007b 00 lb I =2 « N 

000 100 K = N ♦ 1 - 1 

000 102 £ M ( K ) = G(K)-SB(K) *EM(K+1) 

000107 lb CONTINUE 

000 1 12 SLOPE (1) = -S(2) /b.O* <2.0*EM { 1 ) ♦EM ( 2 ) ) ♦ ( Y (2) -Y ( 1) ) /S (2) 

000123 00 18 I =2 ♦ N 

000125 SLOPE ( I ) = S ( 1 ) /b. 0* (2.0*EM ( I ) ♦EM ( l-l > > ♦ ( Y ( I ) -Y ( 1-1 ) > /S( I ) 

000137 18 CONTINUE 

000143 RETURN 

000144 ENO 


subroutine sintp(x» y*n*ai * yi j 

c 

c interpolation subroutine 

c 

00001 0 DIMENSION X ( 1 0 0 ) * Y ( I 0 0 ) 

000010 ERROR=O.OOG1 

C00011 XM I N= 100*0 

000013 DO 10 1 = 1 fiM 

000014 DELX=X1-X(n 

00001b IF (ABS(l)ELX) .LT. ERROR) DELX = 0.0 

000022 IF ( DELX .LT, 0.0) GO TO 10 

000024 XMIN=AMIN1 (DELXf XMIN) 

000027 IF (XMIN .EQ. DELX ) K=I 

000032 10 CONTINUE 

000035 IF (XMIN .EG. 0.0) GO TO 12 

00003b IF <K .EG. 1) K = K+1 

000041 IF (K .EG. N) K=K- I 

000043 DELX=X1-X(K) 

000045 A = Y ( K ) 

000047 D=(Y (K)-Y(K-l) )/(X(K)-X(K— 1) ) 

0000 54 H=(DMY<K*l)-Y(K))/(X(K+n-X<K>))/ 2.0 

0000 64 C= ( ( Y ( K + 1 ) — Y ( K ) ) -H* ( X ( K ♦ 1 ) -X ( K ) ))/(<X(K+l)-X(K))*(X(K*i)-X<K-l))) 

000100 IF (DELX .LT. 0.0) B=U 

000103 YlsA^B* (Xl-X (K) > *C» (Xl-A (K) ) » (Xl-X (K-l > ) 

000115 GO TO 14 

0001 15 12 V 1 = Y < K ) 

000117 14 RETURN 

000120 END 


SUBROUTINE COMP ( K4 ♦ SK I P ) 

C COMPLETION OF FLOW FIELD FOR AN EJECTOR WITH A CENTERBODY 

C 

000005 COMMON X(2*100)*Y(2*100)*P(2fl00)*T<2,100) 

0 0 0 0 05 COMMON XSLP(lOO) *YSLP(100) * AMP (100) t THETA (100 ) *PhP(100) * AMS (100) * 

1 PHS(IOO) * ASASS (100) «DASDX (100) f ISLP 

000005 COMMON XI S (21 *26 ) * Y I S ( 21 t 26 ) « W (21 ) * TAU (26) ♦NSONlCtNANGLE. 

0000 05 COMMON XS0NIC(26) , YS0N1C<26) <PSONIC <2b> *TSONIC (2b) * I SONIC 

0 0 0005 COMMON XCONEUOQ) *YCONE<100) *PCQNEUOO> tTCONEUOO) * I CONE 

000005 COMMON AShDUOO) »YSHU(lOO) *DYSDX<100> ♦ NSHD 

000005 COMMON XBDY(IOO) ,YBDY(100) *DYBUAllOO) ♦ NBDY 

000005 COMMON WTFL *HSHP *T05«T0Pi GAMS * GAMP * FUNG * AMR ♦ ANGR *APREF*ASSAPSf 

1 XPRIM* YPRIM, APRIM,DPRlM*CFL*CVLf CONA, DBUY , DSHD * END , 

2 PAM0,yraTIO»PI < CUNVA *CQNVR*FOIM*NDAT AtNSTOPf 

3 SOL VE ♦ CHOKE * CHANGE* CHARGE* TYPE* POINT* ST AG 

000005 COMMON PTS ( 25 ) » ARE A ( 25 ) t WLE AK ( 25 ) * T I TLE ( 1 8 ) * N I TER * TR Y 

0000 05 COMMON/OUTPN/IPNCH* IPRNT • I COMP 

000005 REAL K4 

000005 DIMENSION C(l6)*D(b) 

C 

C SUBROUTINE COMP 

C 

000005 DO 8 K=1.100 
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00000 o 
GG001G 
oooon 
000013 
0000 14 
000017 
000021 
000024 
000026 
0 0 0 0 30 
000032 
000034 
000041 
000044 
000061 
000057 
000065 
000067 
000074 
G0007o 
000077 
000102 
000104 
000105 
000107 
000122 
000124 
00012b 
000135 
000140 
000142 
0 G 0 1 52 
OOOlbO 
000165 
000171 
000175 
000200 
C 0 0 2 0 7 
000211 
000212 
000214 
000216 
000217 
000224 
000231 
000232 


000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 


000002 

000002 


X (2*k) =0,0 
Y (2*K)=0.0 
P ( 2 ♦ K > =0.0 
T ( 2 * K ) =0 • 0 

IF (P(1*K) ,GT. 0.0) J=K 
M CONTINUE 

IF (XSLPU5LP) *LT. END) 60 TO 10 

delx=eno-xslp uslp-i ) 

OX = XSLP ( I 5LP) -XSLP ( I SLP- 1 ) 

OY=YSLP ( I5LP) -Y5LP ( 1 SlP-1 ) 

DP = PHP (ISLP) -PHP ( I SLP-1 ) 

DT= THVTA ( ISLP) -THETA ( I SLP-1 ) 

X ( 1 * J) =XSLP ( I SLP-1 ) ♦DELX 
Y ( 1 , J) =YSLP ( I SLP-1 ) +UY/DX*UELX 
P <1 * J) =PHP ( I SLP-1 ) ♦DP/OA*DELX 
T ( 1 * J) =THETA< I SLP-1 ) ♦DT/OX*OELX 
10 xCOMP=XSLP ( ISLP) 

IF (N8DY .GT. 0) XCOMP=XHOY (NbU Y > 

DO 16 1=1*100 
CALL BOUND ( 2 ) 

DO 12 J=3 *100 

IF (P(1J) . EO • 0.0) 60 TO 1 4 

CALL FIELIXJ) 

CALL CHECK ( J * SHOCK ) 

IF <X(2*J) . 6T • XCUMP .OP. SHOCK .EQ. 1.0) 60 TO 14 

12 CONTINUE 
14 CALL CL£4P<1,J) 

PADIUS=SOPT (<X(1*?)-X(1*1) )*#2MY(1*2)-Y(1*1) > **2 ) 
NSEPT=PAUIUS/K4 

IF ( P ( 1 * 2 ) .EO. 0.0) gSEPT = 0 
IF (NStRT .GE. 2) CALL INSERT (NSERT-i ) 

IF (SKIP .EO. 1.0) CALL OUTFLDU) 

IF ( I COMP .EQ. 2) CALL PKOFLE 
XTEST=X (l*l)+2.0MX(i*2)-X(l*l) ) 

IF (X(l.l) .GT. aCuMP) GO TO 16 
IF (XTEST .GT. XCOMP) GO TO 16 

IF ( X ( 1 * 2 ) .GE. XCOMP .OR. P(l*2) .EU. 0.0) 60 TO 16 
16 CONTINUE 

16 IF (NBDY .EQ. 0) GO TO 20 
ICONE=ICONE*l 
XCONE ( I CONE) =X6DY (NbOY) 

YCONE ( ICONE) =YHUY (NbDY) 

PCONE (ICONE) =PCONE ( ICONE- i ) ♦UP/OX* ( XCONE ( ICONE J-XCONE(ICONE-l) ) 
TCONE ( ICONE ) =ATAn (DY bOX (NbD Y ) > 

20 RETURN 

End 


c 

c 

c 


SUBROUTINE PROFLF 


COMPUTATION OF INITIAL VELOCITY PROFILE 


COMMON X < 2* 100) * Y ( 2t 1 00 ) * P ( 2* 1 UO ) »T (2*100) 

COMMON XSLP (100) *YSLP<100) 'AMP (100) * THETA (100) tPHP(lOO) ♦ AMS (100) * 
1 PHS( 100) « ASASS ( 100) *DASUX(100) *I$LP 

COMMON XIS <21 *26) * YIS (21 *26) *w (21 ) *TAU<26) * NSONI C * N ANGLE 
COMMON XSON I C ( 26 ) *YS0NlC(26) *PSONiC (2b) *TSONlC (2b) * I SONIC 
COMMON XCONF (100) * YCONE (1 00) * PCONE (100) *TCONt (100) * ICONE 
COMMON XSHl) (10 0) * Y SHD (100) *DYSOX(1QO) *NSHO 
COMMON KBDY(IOO) *YbDY(100> *DYbDX(lOO) * NbDY 

COMMON WTFL*HSHP*TOS* TOP* GAMS *GAMP* FUNG* AMR* ANGR*APREF*ASSAPS* 


l XPRIM* YPRIM* APwlM*DPRIM*CFL*CVL*CONA*UbUY*DSHO*END* 

? PAMb* YRATIO*PI *CONVA*CONVR*FDlM*NDATA*NSTOP* 

3 SOLVE. CHOKE* CHANGE* CHARGE* TYPE* POINT* ST AG 

COMMON PT S < 25 ) * AREA (26) * WLE AK (25) * Tl TLE < 16) *NI TER* TRY 
COMMUN/BNLYR/XSUM ( 100) * YSUM< 100 ) *L)ELShD< 100) *T HE TAS(100)* 

1 CFSHOUOO) *XCNE(100) *YCNE(100) *DELCnE(100) *THETAC(100) * 

2 CFCNE (100) *RE YPRM* POP* AOP* VOP*REYSEC* POS* AOS* VOS* PEX*XSCALF 



0 j0002 
000002 
0 J0OO2 

o o o o o <l 

C0Q022 

000022 

0 0 0 022 
000023 
)u 0 0 24 
000027 
0 0 0 0 31 
000034 
000037 
C00040 
G 0 0 0 4 1 
0 0 0 0 46 
GOOObl 
00 006 3 

0 0 0 064 

000076 

CC0100 

0001 01 
000104 
0001 10 
0001 15 
C 0 0 1 2 1 
000125 
000132 
000136 
000142 
000143 
000 151 
000152 
000161 
0 0 0 1 6 J 
000170 
0 C 0 1 7 2 

000204 

000210 

000213 

000215 

C00217 

000232 

000234 

000234 

000237 

000240 

000246 

000253 
000264 
000270 
000274 
000300 
000307 
000314 
0 C 0 326 
000336 
000345 
000346 
000362 
000364 
000355 
000357 
000360 
000363 
000366 
0 0 0 3b 7 
000373 
C 0 0 377 


COMMON/PPFLP/X PPF (o> , YPkF (6,25) ,QPPF (b,2b> , NPwf (6) , M AX , NM AX 
COMMON/OUTPN/IPNCH* IPwNT * ICOMP 
OI ME VISION C(16> *0(6) * 7^ ALL ( 10*2) 

KiJNM (GtPH) = SQPT l/'.O / IG-l . 0 ) * ( PH** ( - ( (j- 1 . 0 ) /G> -1 . 0 > ) 
oOO FOPMAT < Ml *//27x , idA4,//) 

^02 FOPMAT ( 2 0 X * 3 H I =I3*5A*3HJ = I 3 * 5X * VHAPPF ( I ) = F 6 . 6 * 5X , 1 1 H YPPF < I , J ) 
1=F8.5,5X* 1 LHUPPF ( I * J) =F 8.5) 

<1 A A = 6 
i\IMAX = 25 
STEP=MAX-i 

IF ( X PpF { 6 ) .tO« 0.0) XPPF(6)=tNL> 

D E L A = ( APPF (6) - APPF ( 1 ) ) /STEP 
IF (I5LP .61. 2) GU TO 12 
OO 10 1 = 1, MAX 
NPPF ( I) =0 

IF (I .GT. 1) XPPF ( I ) =APPF ( I -1 ) +UELA 


10 CONTINUE 


1? 00 

26 1=1, MAX 




IF 

(XPPF(I) . EO* 

0.0 .OK. NPPF ( I ) 

• Eu . NM AX ) GO 

TO 26 

IF 

(xPPF(I) * L T * 

XSLP ( ISLP-1 ) .OP. 

XPPF ( I ) .GT. 

XSLP (ISLP) ) 

1 

GO TO 14 




IF 

(NPPF (I) .GT* 

U) GO TO 16 




NPPF ( I ) =3 

CALL F INLMXPRF (I ) * YWALLU *1) *0YWUX* 1.0) 

CALL F I NO (APPF ( I ) , YWALL (1*2) *QYPDX*2.0> 

OYOX= (YSLP( I SLP) -YbLP ( ISlP- 1 ) ) / (X5LP (ISLP » -AbLP < ISLP-1 ) ) 

OP[)A= ( PHP ( ISLP) -PHP< I5LP-1 ) )/(AbLP(IbLP)-XbLP(15LP-l) ) 

!)TDX= (THFTA(ISL^)-TPtTA ( I bLP-l > ) / ( XSLP ( I SLP ) -A SLP ( I SLP- 1 ) ) 

YPPFL = YSLP ( I SLP- 1 ) +0 YOX* ( APPF ( I ) - A SLP (ISLP-1) ) 

PPPF=PHP (ISLP-i) ♦OPOX* (APPF ( I > -A SLP ( I SLP-i ) ) 

JPPF = THE T A ( I SLP- 1 ) +UTOX* ( APPF ( I ) - A SLP ( I SLP-1 ) ) 

YPPF ( I , 1 ) =1 .0 

YPPF (!*?)=( YPPF L-Y WALL (1,1) )/<YwALL(I*2)-YwALL(I*l) ) 

YPPFU* T ) = YPPF (1*2) 

OPPF (1*1) =FUNM(f»AMS*PPPF/PTS ( N I TtP) ) 

UPPF (1,2) = JPRF (1,1) 

NPPF ( I , T) =FUNM ( G AMP , PPPF ) 

14 IF (ICONE .EQ. 1) GO TO lb 

IF ( XCONE ( ICONE-i ) .Lb. APPF l 1 ) . ANL) . XCONEUCUNE) *GE. 

1 XPPF (15) GO TO 22 
IF ( ACONE ( I CONE-1 ) .GT. APPF ( I ) ) GO TO 2b 
16 IF (APPF(I) . LT. MM)) GO TO 2b 
00 18 J=2 ,100 

IF (P(1,J) .EO. 0 . U ) GO TO 26 

IF (X(l,J-l) *LE. XPkF(I) .AnO. X ( 1 , J ) .GE. XPPF ( I ) ) GO TO 20 
18 CONTINUE 
GO TO 26 

20 NPRF<I)=WNPRF (I) 

I PPF=NPPF ( I ) 

0 Y D X = ( Y ( 1 * J) -Y ( 1 , J-i ) ) / ( A ( 1 , J) -X ( 1 , J-l ) ) 

OTDX=< I ( 1 , J) -T ( 1 * J- 1 ) )/(X ( 1 * J) -X ( i,J-l) ) 

CALL CO A YE ( XAVE* YAVEMAVE* TAVE* l * J-l * 1 , J ) 

CALL COEPF < XA\/E*YAVE*PAVE*TAVE*C*GAMP) 

0(3)=1.0/(C(3)*C(b)*C(7)) 

0(6) =FDIM*C M> *C{ 1 1 ) / (C ( 13) »C < 15) ) 

YPPFL=Y ( 1 , J-i ) +DYOX* ( XPPF ( I ) -X ( 1 , J- 1 ) ) 

TPRF = T ( 1 * J-l ) tuTOX* (XPPF ( I ) -X ( 1 , J- 1 ) ) 

PPHF= (D ( 3) *P ( 1 * J-l ) - l TPRF-T ( 1 * J- 1 ) ) -D < 5 ) * ( YPPF L-Y ( 1 * J-l ) ) ) /U < 3) 
YPPF ( I * IPPF ) = ( YPPFL-Y WALL (1*1))/ ( Y w ALL ( 1*2) -Yw ALL (1*1)) 

UPPF ( I , IPPF ) =FUNM (GAMP * PPPF ) 

GO TO 26 

22 IF (ICONE .GT. 2) GO TO 24 
XCONE ( 1 ) =XSON I C ( NO A T A ) 

YCONE ( l ) =Y SONIC ( nDATA) 

PC ONE < 1 ) =PbONIC (NUATA) 

TCONE ( 1 ) = T SONIC (NQATa ) 

IF ( XPPF ( I ) .LT. XCONE ( 1 > > GO lu 26 
24 NPPF ( I ) =1 ♦ NPPF ( I ) 

I PRF = NPPF { I ) 

DPDX= (PCONE ( I CONK ) -PCONE ( ICONE-1 ) ) / (ACONt < ICONE) -XCONE ( ICONE-1 ) ) 
L)TOX= (TCONE ( ICONE ) -TCONE < ICONE-1 ) ) / (XCONE (ICONE ) -XCONE < I CONE- 1 ) ) 
PPPF = PCONF ( I CONE- l ) +UPDX* (XPPF ( 1 ) -XCONE ( ICUNt-i ) ) 
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0 004 0*+ 
000410 
0004 13 
C 0 0422 
00042b 
00042b 


= T CONE ( ICONt-1 > ♦IJTDA* (XPkF l I > -XCUNE ( ICUNt-1 > ) 
Y^RF ( I * IHRF) =0.0 

<F <1*1 PRF ) = FUNm <GAM^*PPkF ) 

26 CONTI NUE 
RETURN 
END 


C 000 02 
CuOOU2 

000002 
000002 
OOOOU2 
000002 
0 G 0 0 02 
000002 


000002 

000002 


000002 


000033 

000052 

OGOObb 

000102 

000133 


000141 

000141 

000141 

000141 

000141 

000141 

000141 

000141 

000141 

000141 

000141 


000141 
000143 
000144 
000146 
000150 
0001 bb 
000167 
000162 
COO 1 66 
000171 
000173 
000205 


C 

c 

c 


c 

c 

c 

c 


c 

c 

c 


SUBROUTINE RERF 

CALCULATION OF PERTINENT EJECTOR PARAMERERS 


1 


1 

2 

3 


1 

2 

1 


1 


COMMON X ( 2 * 1 0 0 ) * Y (2* 1 00 ) *P ( 2* iUO ) * r (2tlOO) 

COMMON X 5 L P ( 1 O 0 ) .YSLP(iOO) ♦ AMP ( 1 00 ) iTHETA(iOU) * PHP <iOO) * AMS ( 1 00 ) * 
PHb ( 100) + AbAbS ( 100) iDAbUX ( 100) * 1SLP 
COMMON XIS<21 *26) * Y I 6 < 21 *26) *^(21) ♦ T AU ( 26 ) * NbON I C * N ANGLE 

common x sonic < 26 > * yson j c ( 26) • PbONic ( 26 ) * t sonic ( 26 ) * i soni c 

COMMON XCONE (100) * YCONE (100) * PCONE (100) * TCONti (100) * I CONE 
COMMON XSHO (100) * YbhO (100) *i)YSUX (100) *NSHO 
COMMON XHDY (100) i YrtOY (100) *DYftUX (100) *N60Y 

COMMON */TFL *HSHP * T05* r OP * GAMS * GAMP + E Ui\|G * AMP * ANbR * APPEF *ASSAPS* 

XPP I M * YPR I M * APPIM*UPPI M*CFL + CVL*COI\IA*L)BUY* DSHD* END* 
PAM^*YPAriO*Pl iCONVA*CONVR*FUlM*NOATA*NbTOP* 

SOLVE * CHOKE * CHANGE * CHARGE * T YPE * PO I NT * ST AG 
COMMON PTS (2b> * AhE A ( 2b ) * wLE AK ( 2b ) * T I TLE ( 1 H ) * N I 1 ER * TRY 
COMMON/BNL YP/XSUm (100) *YSUM(100) *DELShD ( 100) * T HET Ab ( 1 0 0 ) t 

CFShD ( 1 0U ) * XCNE (100) * YCnE ( 1 00 ) * UELCNE (100) *THETAC(100) * 
CFCNE ( 100 ) * KEY PPM* POP* AOP* ^/OP * PE YSEC * POS * A OS * VOS * PEX * X SCALE 
FUNA (Gt AM) = ( (G*l .0 ) /2. 0) ** < - (G* 1 .0 ) / (2.0* (6-1 • 0) ) ) *1 . 0/AM* ( 1 .0* 
(G-1.0>/2.0*AM*AM>**( (G*1.U)/(2.0*(G-1.0) ) ) 

FUNM (6+PH) =SQRT (2.0/ (6-1 .0) * (PH** ( - ( b- 1 .0) /G) -1 .0) ) 

FUNP (G* AM) = ( 1 .0* (G-l .0) /2 . 0 * AM* AM ) ** < -G/ (G-l . 0 ) ) 

F UN V (G* AM) =S(jRT (aM*AM/( 1.0+(G-1.0) /2 . 0* AM tt AM ) ) 

FI DEAL (g*Ph)=SQRT ( 2.0*G*G/ (6-1 . 0) * <2. 0/ <G* 1 . 0 ) ) ** ( (6* 1 .0) / (G-l .0) ) 
* ( 1 .0-PH** ( (G-l . 0) /G) ) ) 

A \JE ( XI * X2) = ( XI +X2) /2.0 


FORMAT STATEMENTS 

600 FORMAT (//37X*31hNOZZlE PPESSUPE RATIO* PTP/P0 =F10.5) 

602 FORMAT (//37X,36hPPIMARY STREAM THRUST* FP/(PTP*aP) =F9.6) 

604 FORMAT (//37X,38hSECONOARY STREAM THRUST* FS/<PTP*AP) =F 9 . 6 ) 
h 0 6 FORMAT ( //37X *4 1 HPRESSURE FORCE ON SHROUO* FShO/ < PTP* AP ) =F10.6) 
608 FORMAT ( //37X * 39HPPESSURE FORCE ON BODY * FbDY/ ( PTP* AP > =F9.6) 
o0 9 FORMAT {//37X,36 hSMN FRICTION DRAG* FURAG/ ( PTP* AP ) =F9.6) 

610 FORMAT {//37X,34 hT 0TAL STREAM THRUST* FT/(PTP*AP) =F9.6) 
b 1 2 FORMAT ( //37X * 38HGR0SS STREAM THRUST* F GROSS/ (PTP*AP) =F9.6 ) 
h 1 ft FORMAT ( 1H1 * //49X * 30HE JECTOR THRUST CHARACTER I bT I CS/49X * 30H»****** 
[##*#*»**##**#*##**##***) 

620 FORMAT (//26X*6HPTP/P0 *6X *6HFGR0SSt 1 OX * 3HF I P * 1 1 X ♦ 3HF I S* 1 IX * 
13HCVP*11X*2HCV) 

622 FORMAT (19X*6Fl4.b) 

SUBROUTINE PEWF 

CPL=1.0 
IREF=ISLP 
CFI=0. 003 

PRES = FUNP (GAMP* AMR) 

FP=PRES* ( 1 . 0+GAMP*CFL*CVL*AMR»AMR) 

ISLP=1 

CALL FINO(XSLPd) * Y R ALL * U Y WOX * 2 . 0 ) 

CALL AJAX (XSEC » YSEC t ALPHA* AREF *UA'JX) 

IF IREYPRM .EQ. 0.0) YSUM ( 1 > =Y w ALL 
Y*lALL = YvilALL-DELSHD ( 1 ) 

A SEC= ( YWALL* YwALL tt *FOIM-YSLP ( 1 ) *YbLP ( 1 ) **FUIM) /APRIM 
IF (ASSAPS .GT. 0.0) ASASS ( 1) =rtSEC/APR I M* APRtF/ ASSAPS 
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o oo a 1 1 
CG0215 
000222 
C0022b 
C 0 023 1 
00023b 
CC0237 
C 0 02*0 
0 0 024 1 
C 0 02 h2 
0 0 C 2^b 
C 0 02b 1 
000254 
0002M 
C 0 026 7 
000272 
000275 
00027b 
C 00300 
000302 
000312 
00032*+ 
00032b 
C 0 0 332 
00033*+ 
00033b 
000340 
000341 
000343 
00034b 
000351 
0 C 0 355 
0 0 0 3b0 
0 0 0 3b 1 
000364 
000366 
C00400 
000412 
C004l«+ 
OC 0420 
000422 
000424 
000*26 
000433 
00043b 
000444 
000447 
C00451 
C 00457 
000465 
000473 
000501 
C005U7 
000515 
C 0 0523 
000531 
000535 
0005*1 
000543 
000544 
0 00546 
C 00547 
0 C 055 1 
000557 
000562 
000573 
000576 
000600 
000602 
000603 
OG 0 623 
000625 
000626 


IF <WTFt. .51. 0.0) CALL AST AK ( AMS ( 1 ) * AbASS ( 1 ) * bAMS) 

PHP ( 1 ) =PTS(NI Tfc" K ) *E Ui\|P(GA“lS* Aflb <1 ) ) 

ANG5fcC=AVt ( Thfc'T A ( 1 ) * A T Aim (L)Y WOX ) ) 

A^SF C = A‘4S ( 1 ) *COb ( ANGbEC ) 

f 5 = PHP ( 1 > M 1 . 0*GAMS*AUSEC*AMSEC) *CPL*AbEC 
FSHD-0.0 
F i3l)Y = 0.0 
F !)KAb = 0 • 0 
50 10 1=2*1 PLF 

IF (REYRR.<1 .EQ. 0.0) CALL F I NO < XSLP < 1 ) * YSUM ( I ) t D YWDX* 2. 0 ) 

AaVE = A\/E ( XSLP ( I ) * XSLP ( I-i ) ) 

YAVE = *\/E < YSUM ( I ) * Y SUM ( I-i ) ) 

IF < X5L P ( 1 ) • L t • XbEC) PA v£=AVt (PrIP < 1 ) *PHP (2) ) 

IF (XSLP(I) • GT * XSEC) PA vE=A Vt < HHP ( I ) , PhP ( I -1 ) ) 

C (r AV£ = A V£ (CFbHt) ( I ) *CF:>HU ( 1-1 ) ) 

A M A 0 £ = A V £ ( A M S ( I ) * A Mb ( l-l ) ) 

AMS5=AMAVF^AMAOE 
!)X = XbLP( I ) -XSLP < 1-1 ) 

DY = YSUM ( I ) -YSUM ( 1 -1 ) 

t) A= ( YSUM ( I ) * Y SUM < I)*»FUIM-YSUMIX-1)*YSUM< 1-1) )/APRlM 

OS=YAVE<>*E‘l)IM*SORT<UX<UJX + l>Y*iJY>/APRI i 'i 

POA=PAVF*DA 

DRAG=CFAVF»GAMS*HAVt*AMbU#Db 
FSHD=FSHO+PUA 
FiJRAG=Fi)RAG + DKAG 
10 CONTINUE 

12 IF (NriOY .EU. 0) GO TO lb 
OO 14 1=2*1 CONE 
YAVt = A YE (YCONE < 1 ) * YCONE ( I - 1 ) ) 

PAVE=AVE (PCONF ( I ) * PCONF ( I -1 ) ) 

A M AS/E = FIJNM (GAMP* PAVE) 

CFAVE = AV£ (CFCNE ( I ) * CF CHE ( 1-1 ) ) 

AMSO=AM4 V£* AMAVE 
DX=XCONF ( 1-1 ) -XCUNt ( I ) 

OY=YCONE ( 1-1 ) -YCONE ( I ) 

DA= ( YCON£ ( I -1 ) * YCONE ( I -1 ) **FOIM-YCONE ( I ) * YCONE (I)**FDIM)/APRIM 
OS = YA tfE**FDI M^SOPT (Ox^QX+OY^OYJ/APRlM 
Pl)A = PA YF*I)A 

drag=cfave*gamp»pave*amso*ds 

F 50Y = FH0Y + Pl)A 
FOR AG=FQR AG+DRAG 
1* CONTINUE 

16 FTOTAL = FS + FP + FSHU*FtiL)Y-FOPAG 
CALL F INU (END* YP*OYPDX*2. 0 } 

AEXIT=YP*YP**FDIm/APRIM 
FGROSS=FTOTAL-PmR ( I KEF ) * AEX I T 
HPP0=1 . 0/PHP ( I PEF ) 

WRITE (6*600) HPpO 
WRITE (6*60?) FP 
WRITE (6*604) ES 
WRITE (6*606) FShD 
WRITE (6*608) FRnY 
WRITE ( 6 * 6 0 R ) FUkAb 
WRITE (6*610) FTUTAL 
WRITE ( 6 * 6 1 2 ) FGkOSs 
^RITE (6*618) 

WR I TE ( 6 * 620 ) 

HPP0= 1 .0 
DO 16 1=2*40 
HPPG=1 . 0+HPP0 
P0HP=1.Q/HPP0 
P0HS=P0HP/PTS (Nl TER) 

F I P=CFL*F IDEAL (GAMP* POHP) /APREF 
IF (P0HS .GF. 1.0) F I b=0 . O 

IF (P0HS *LT. 1.0) FIS=PTs(NITER)^ASbAPS*FIDEAL(GAMS*POHS)/ApREF 

FGROSS=FTOTAL-POHP*AEXIT 

IF ( F GROSS .LT. 0.0) GO TO lb 

CVI=FGR0SS/(FIP*FIS) 

CVP=FGROSS/F IP 

WRITE (6*622) HRPO*FGROSS*FIP*F IS*CVP,CVI 
18 CONTINUE 
RETURN 
end 
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0 y 0 0 0 2 
G 0 0 0 0 2 

G 0 00 02 
000002 
C 00002 
000002 
GOO 0 02 
G00002 


000002 
C 0 0 0 02 
000002 

£00033 


COOOS2 

000052 

C 0 0 0 52 

000052 

000052 

000052 
C 0 0 0 52 
C 0 0 0 52 
000052 


000052 

000055 

000057 

000061 

000063 

000065 

0 0 00b 7 

000071 

000077 

000105 

000113 

000121 

000123 

0C0131 

000135 

000137 

000151 

000165 

000171 

000173 

000203 

G00214 

000230 

000234 

000237 

C002b2 

000265 

000267 

000272 

000273 

000276 

000277 


SUBRjUT INE OUTSLP 

WRITE-OUT OF PERTlNtNT InFORMATIuN IN SECONDARY FLOW F I FLO 


COMMON X ( 2 * 1 00 » *Y (P< i00> <P(P< 100) < T (2< iU0> 

COMMON XbL p ( 1 0 0 > * Y5L^ ( 1 UO ) < AMP l iOU ) < T MET A ( 1 00 > * PHP ( 10U ) < AMS ( 1 00 > < 

1 Ph^ I 10 0) < A b A S S ( lUO) < D A S U A ( 1 0 0 ) < 1 S L P 

COMMON X lb (Pi *26) < Y I S ( 2 1 < 2b ) < W ( 2 i ) < T 4U ( 2b ) < N50N I C < NANGLE 
COMMON < SON I C ( 2o ) *Y SONIC (26) .PS0NIC(P6) ,TSOn1C(2o) * I SONIC 
COMMON XCONF ( i 0 0 ) < YCO.mE (100) tPCONt (100) < TCUNE( 100) < I CONE 
COMMON XSHO( LOG) iYbHL)( 100) <0 YSuA (100) < NSHO 
COMMON XbOY ( 1 00 ) < YhOY ( 1 00 ) < JYBUX (100) <NBOY 

COMMON WTFL<H5HP<TOS< r OP * GAMS * G AMP <FUNG < AMP < ANbR * APREF < ASSAYS < 

1 XPPI M* YPKJM* APR I M<DPRIM< CF L * C VL < CON A * DBD Y < DSHD* ENL) * 

Z PA^rt < YRA T 1 O < P 1 <CONVA<CONVP<FJ IM<NDATA<N5T0P< 

] SOLVE <CHUKt < CHANGE < CHARGE < T YPE <PO I NT < ST AG 

COMMON PTS(25) < AkE A ( 2"> ) < WLE AK < 25 ) iTITLE(IH) <NITER<TkY 
COMMON/OJ TPN/ IPNCH < IPPNT< I COMP 

FUIMA(G<AM> = ( (G<-l.Q)/2.0)**<-(G*1.0>/l2.0*<G-i.Un > * 1 . 0 /AM* < 1 . 0 ♦ 

1 (f 7 -l . O ) /2.0*AM*AM> ** ( (G* 1 . 0 ) / (2. 0* (G”i . 0 ) ) ) 

RJNM (G< PH ) = SORT (2.0/lG-i.G)*( PH** ( - ( G- 1 . 0 ) /G ) - 1 . 0 ) ) 

FORMAT statements 
bOO FOPMAT ( iHi <//2rtx< lHA^f//) 

b02 FOPMAT ( 25X < 6 hwTFL =Fr . 6 , BX < 7HwLE aK =F9. 6 <5X * VHP T S/PTP =F9.6,SX< 
16HAS/AS* =F9.b> 

d 04 FOPMAT (//< 20X. 4MXSLP < BX <uH YSLP< 8X<3HAMP<MX<5HTHET A <7X<5HP/PTP<6X, 
1 3HAMS < MX < BHP/P T S t 7X < brl AS/ AS* ) 

( 1 3X<bF 12.5) 

< //37x<45hSEC0-\I0aPY COPPECTEJ WEIGHT FLOW PATIO* WTFL = 
♦>4*6) 

( / / 37 X < 4 1 hSECONO AR Y TOTAL PPESSUWE PATIU< PTS/PTP =F9.6> 

( //37X < 40hSECONOAPY CPI TICAL APEA PATIO< AS*/AP* = F 9 * 6 ) 

( / /37X * 38nPR I MAP Y NOZZLE FLOW COEFFICIENT< CFL =F6,5) 
(//J7X<42hPPIMaPY NOZZLE VELOCITY COEFFlCIENT< 


^06 FOPMAT 
bOH FORMAT 

l 

bio FORMAT 
FOPMAT 
format 
format 


b 1 2 

b 1 4 

b 16 


C VL =F8 • 5 ) 


SUBROUTINE OUTSLP 


10 


IF (XSLP(ISLP) * LE • END) GO TO 6 
RATIO=PHP(ISLP)/PHS(ISLP) 

DX=XSLP ( ISLP) -XSLP ( ISLP-i) 

OY=YSLP ( ISLP) -YSlP < ISLP-1 > 

DP=PHP (ISLP) —PHP ( ISLP-1 ) 

JT=ThETA (ISLP) -TmETA ( ISLP-1 ) 

XbLP(ISLP)=ENO 

YSLP( ISLP) =YSLP( ISLP-1 ) ♦ ( O Y/UX ) * < XSLP ( I SLP > -XSLP l I SLP- l > ) 
PHP < I SLP ) =PHP ( I SLP” 1 ) + (UP /OK ) * (XSLP < I 5LP ) -XSLP ( I SLP” 1 ) > 
THFTA ( ISLP) =THETA (ISLP-1 ) * (OT/OX) * (XSLP ( ISLP) -XSLP (ISLP-1 ) ) 
AMP ( ISLP) =FUNM (GAMP<PHP ( ISLP) ) 

PHS (ISLP) =PHP (ISLP) /PATIO 
AMS (I SLP) =FUNM(GAMS*PhS(ISLP) ) 

ASASS < I SLP) =FlJNA (GAMS < AMS ( I SlP) ) 

CALL SHLYP(l)OSOX) 

WRITE ( 6 <60 0 ) (TlTLE(K)< K=I<1B> 

(b,b02> WTFL< WLEAK (NI TER) <PTS (NITER) < AREA (NITER) 

( 6 < 6 0 4 ) 

1=1 <ISLP 

*Le. 4b .OR* I .GE. 47) GO TO 10 
( b < 6 0 0 ) (TlTLE(K) * K=1<1«) 

(6<602) wTFL< WLtAK (NI TER ) < P T S < N I TER ) < AREA (NITER) 
(6*604) 

CONVA*THETA ( 1 ) 


WRITF 
WkITE 
DO 12 
IF (I 
WRITE 
WRITE 
WRITE 
angle = 


WRITE ( b < 606 ) XSLP ( I ) * YSLP ( I ) » AMP ( I ) ♦ ANGLE *PHP ( I ) < AMS ( I ) ♦ 
1 PHS(I) <ASASS(I) 

IP CONTINUE 

IF (CHOKE . EO. -1.0) GO TO 20 
IF (ICOMP « EQ . 2) CALL OUTPRF 
CALL OUTLYR 

IB IF (NBt)Y .GT. 0) CALL OUTCNt 
CALL OUTSNP 
HSHP=PTs(NITER+1) 


0 0 0 30 1 ASSAPS=FUNC,*wTFL/P T 5 ( |»I FFR + 1 ) 

^ 03C4 WRITE (6,600) (FlTLt(K), K = l,io) 


000315 

WRITE (6, 

•J 0 0 3 2 5 

WRITE <6, 

u C 0 3 3 1 

w R I Tb ( 6 9 

C00337 

WRITE (6, 

003345 

WRITE ( 6 , 

030353 

PTb (NI TER 

000365 

IF (nShu 

0 C 0 3 1> 0 

IF (NSHU 

000374 

20 RETURN 

0 0 0 37b 

END 


60 8 ) ri TFL 

F> 1 0 ) HTb(NITh.K+l) 

6 l 2 ) ASSAYS 
6 l A ) CFl 
616) CVL 
)=PTS(NITtK+i) 

.lU. i» CALL PtRF 
.GT* i , A Ml) • XSLP(IbLP) 


.CO. ENQ) CALL PERF 


000002 

000002 

300002 

COQ002 

0CQ0O2 

000002 

000002 

000002 


C 00002 
000002 


0 C 0 0 02 
000002 
Q000O2 
000022 
000022 

0 C 0 0 22 

000022 

000022 

000022 


0C0022 
000023 
000035 
GOQObl 
00005b 
C 0 0 0 57 
G 00063 
000102 
000104 
0301 lb 
000132 
000136 
C00141 
000142 
000144 
000155 
000171 
000175 
C001 77 


SUBROUTINE OUTLYR 
C 

c WRITE-OUT OF PERTINENT 60UNUARY LAYER INFORMATION 


C 

c 

c 


1 


1 

2 

3 


1 

2 


COMMON X ( 2 ♦ 1 0 0 ) « Y < 2 v i 0 0 ) ,2(2,100) , T (2tl00) 

COMMON XSLPUOO) ,YSLP<100) * AMP (100) * THE T A ( 1 0 0 ) * PhP ( i 0 0 ) , AMS (100) * 

PHS(IOO) fASASbdOO) *OASOAUOO) f ISLP 
COMMON X I S (21 , 2b ) , Y IS (21 , 26) , W < 2 1 ) , TAU (26 ) , NbONIC , N ANGLE 
COMMON X50NIC (26) t Y SONIC <26 ) 9 P 5 ONIC (26) , T SONIC (2b) 9 I SONIC 
COMMON XCONE(IOO) ,YCOiNE(10O) ,PCONE(iOO) tTCONE(iOO) , I CONE 
COMMON XSHO(IOO) tYSHU(lOO) »UYSUX(IOO) ,NSHD 
COMMON XBOY < 100) •Y4L)T(lU0) ,OYHDX ( 1 00 > ,imBDY 

COMMON w/T FL * HSHP 9T(jS*T0P9GAMb9bAMP,FUNb , AMR , ANbR, APREF,ASSAPS? 
XPRIM^YPRIM^APRIM.OPRIM^CFL^CYL * CON A 9 (JBO Y 9 DSHD t END t 
PAMB 9 YRATIO 9 PI tCONVA 9 CO 1 WR 9 FOIM 9 NDATA 9 NSTOP 9 


SOLVEtCHOKE 9 CHANGE . CHARGE 9 T YPE 9 PO I NT 9 ST Ab 
COMMON PTS(25) 9 AREA (26) 9 WLE AK ( 2b ) 9 T I f LE ( 1 8 ) 9 N 11 ER 9 TR Y 
COMMON/BNL YR/X SUM ( 1 U 0 ) 9YSUM< 100) ,UELSnD(100> , ThETAS U 00 ) 9 

CF SHD ( 1 0 0 ) •ACNE(ll)O) * YCNE (100) 9 DELCNE (100) tTHETAC(lOO) 9 
CFCNE ( 1 00) 9 KEYPRM 9 POP 9 AOP 9 VOP 9 REYSEC 9 ROS 9 AOS 9 VOS,PEX,XSCALF 
COMMON/OU TPN/IPNCHt IPRNT* 1 COMP L 

DIMENSION ^SLP(IOO) 9 Z CONE ( 1 0 U ) 9 AMCNE (100) 


FUNM (GtPh) -SURT (2.0/ (G-l . 0 > * (Pn** < - <b-l . 0 ) /G ) -1 . 0 ) ) 

^00 FORMAT ( 1 H 1 t //28x , 1 8A4, // ) 

602 FORMAT (22X*6H#TFL =F U . 6 9 5X 9 RHP TS/P TS =F9 . b , 5x , 8HRE YPRM =E10.3, 

1 5X 9 dHRE Y SEC =E 1 0 • 3 ) 

604 FORMAT ( //32X 94HXSHU, 4X 9 4HYSHI) ,8X 9 3H AMS 9 8X 9 6MOEL SHD 9 6X 9 6 HTHE T AS 9 

1 6X . ShCFSHD ) 

606 FORMAT ( 2,5X , 6F 1 2 . 6 ) 

n08 FORMAT ( //32X , 4HXCNE , 8X 9 h-HYCNE »dX» 3HAMC 9 8 X 9 6 H DELCNE 9 6 X 96 HTHETAC 9 
1 6 X. 6 HCFCNE) 

olO FORMAT (lHJ) 


SUBROUTINE OUTLYR 

IF (REYPRM .EQ. 0.0) (30 TO lb 
WRITE ( 696 OO) (TlTLE(K )9 K = 1 , 1 8 ) 

WRITE (69602) WTF L * PT S ( NI TER ) 9 KE YPRM 9 PE YSEC 
WRITE (6t604) 

DO 10 1 = 1 9 1 SLR 

2SLP ( I ) =XSLP ( I ) + XSUM ( i ) /X SC ALE 

•VKHt <6,b06> XbLPlI ) * YSUM ( I ) ,AMS>(I) .UtLSMO(I) » THE T AS ( I ) , CFShD ( I ) 

I F ( I . NE . 45 ) GO TO 1 0 

WRITE ( 6 1 600 ) (TITLE(K)9 K=l,12> 

■WRITE (6,602) WTFL,PTS (NITER) 9 RE YPRM 9 RE YSEC 
WRITE (6,604) 

10 CONTINUE 

IF (NBDY • LU * 0) GO TO 14 
I STOP= I CONE - 1 

WRITE (6,600) (TlTLE(K), K= 1 , 18 ) 

WRITE (6,602) wTFl,PT b (NI TER) 9 REYPRM 9 REYSEC 
’WRITE (6,0 08) 

DO 12 I = 1 , 1 S TOP 

ZCONE ( I ) =XCONE ( I ) ♦ XCNE ( 1 ) /X SCALE 
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0 0 0303 AMCNE ( I ) =FUNM (Om^H»PCO!\IL ( I ) ) 

000310 WRITE (h»r>Ob) XCnNt If) *YCONE(I> *aMCNl(I) . UfcLCNfc. ( I > *THETACd> , 

1 CFCNtll) 

000330 IF (I .N £. 4b) TO 13 

000333 WRITE (6*600) (TlTLE(*)t K=l*ld) 

0 0 0244 WRITE ( b * 602 ) w TFL * P Ts ( N I TER ) * RE YPkM * KEY SEC 

000360 WRITE (6*608) 

000364 13 CONTINUE 

000367 14 IF (IPNCH .F_u. 0) GO TO Id 

C 

C PUNCH CAROS FOR S ASM AN CRESCI TUKdULENT dOUNUARY LAYER PROGRAM 

C 

C00270 s00 FORMAT (HAo) 

000270 b03 FORMAT <6F12. 6) 

000270 6 0 4 FORMAT (bib) 

000270 SOb FORMAT ( 2F 1 0 . 6 * 1 OX t bF i 0 . 6 ) 

000270 PR = 0 • 7 OS 

C00272 R£COV=0 • 9b0 

000273 UIM= (2.0+FUIM) 

00027b SCALE=DPRlM/2.0 

C 0027 7 DIV=4.0 

000300 I PROF = 0 

000301 I C A R f ) = 0 

C 0 0 302 IPLOT = l 

000303 IF (IPNCH .EG). 2) GO TO 16 

00030b POS=POS/14 h.O 

C 0 0 30 7 ThETA1=SCALE*Th£TAS ( i ) 

000311 Hl=OELSHD ( 1 ) /THETAS ( 1 ) 

000312 PUNCH 500* (TlTLt(K)f K=l*9) 

COO 324 PUNCH b02* P0S * Tub * AMHU0 * GAMS * PR * RECU V 

000344 PUNCH 502 * 0 1 M * SCALE * A MS ( 1 ) * THLT A 1 * H 1 * O I V 

000364 HUNCH 504, I SLP * I SLP * IPROF * I C AKU * IPLOT 

000402 PUNCH 506, (ZSLP(I) fYSUM(I) *AMS(I) *P mS(I) * DELS hO ( I ) *T hETAS(I) * 

1 CFSHD ( I ) i 1=1*1 SLP ) 

000431 16 IF (IPNCH .EQ. 1 .OR. NdDY .EQ. O) GO TO Id 

000440 ROP=POP/14<*. 0 

0 0 0442 rHETAl=sCALE^THtTAC < 1 ) 

000444 H1=DELCNE ( 1) /THETAC ( 1 ) 

000445 PUNCH 500* (TITLE (K)* K=1*V) 

000457 PUNCH 502* POP * ToP * AMHU0 * G AMP * PR * RECOV 

000477 PUNCH 502* O IM* SCALE * AMCNE ( 1 )* THETA 1 * H 1 * OI V 

000517 PUNCH 504* I S TOP , I STOP * I PROF , I CARO * I PLOT 

C 00535 PUNCH 506* < ZCONE < I ) * YCONE ( I ) * AMCNE < I ) *PCONE < I ) * UELCNE (I ) * 

1 THETAC(I) *CFCNE(I) * I=i*IbTOP) 

000564 lb RETURN 


000565 END 


SUBROUTINE GUTSNP 
C 

C WRITE-OUT OF CONu I T I O vlb ALONG SONIC LINE 

C 

G 0 0 0 0 2 COMMON X ( 3* 1 00 ) * Y ( 2 * 1 00 ) * p ( 2 , i O0 ) *T (2*100) 

000002 COMMON XSLP d 00) * YSLP (100) * A 4P ( AOO) * ThETA ( I 00 ) *PHP (100) * AmS( 100 > * 

1 PHS ( 100) • ASASS ( 100) * DaSUX ( 100 ) * I SLP 

000002 COMMON X I S ( 2 l * 26 ) t Y I S ( 2 i , 26 ) * W ( 2 1 ) * T AU ( 26 ) * NSON I C . N ANGLE 

C00002 COMMON XSUNIC(26) *Ys0nIC( 36> *PSONICl26) *T50NIC(2o> *I50NIC 

0 00002 COMMON XCONt (100) * YC0N6 ( 100 ) *PCONt ( 1 00 ) * TCOUt ( 100 ) * I CONE 

0 00002 COMMON XSHD ( 1 00 ) * YSHU ( 1 UU ) * O YSU a ( 1 U0 ) * NSHD 

000002 COMMON XdDY ( 1 00 ) * YbUY ( 1 O0 ) * l) YdUX ( 1 0 0 ) * NHOY 

0 0 0002 COMMUN * T FL * HSHP * TOS * TOR * 6 A Ms ♦ G AMR * FUNG * AMR * ANOR * APREF , A SS APS * 

1 XPRIM* YPRI M* APR I M*OPRIM*CFL*CVL*CONA.L)dUY*f)SHO*END* 

2 PA Mb, Y R A T I u * P 1 * CONN/ A *COimVR *FU1m*NOAT A *NsTUP* 

3 SOL \ /E tCHOKfe * ChanGE * CH a R ut * rYPE*POlNT*STAG 

000002 COMMON RTS ( 25) * ArE A ( 2t> ) * «LE Ak ( 2b ) * T I f Lt ( 1 H ) , N II ER * TR Y 

0000 02 COMMON/HNLYR/XSUM dUO) * YSUM< HJO) *ULlShO( 100)*ThETaSU00>* 

1 CFSHO ( 100 ) * XCNE < iOU ) * YCNt < 1 UO ) * UELCNE ( i 0 0 ) * The T AC ( l 00 ) * 

2 CFCnE ( l 00 ) *R£YRRM*POP* AUR* VOP*KtYSEC*ROb* AOS* N/OS*REX* XSCALF 
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■j 0 0 0 U 2 

D 0 0 0 0 2 
0 C- u 0 1 1 
: jouu 
: do o i l 
3*0013 

n c o o i ^ 

33 301b 
C j 0 0 1 o 
000017 
C 0 J 0 3 1 

: joo jj 

j 0 00 lib 

::oo**7 

ccoosi 

: :oog4 
0 0 0 0 t> 7 
C 0 0 U t> 1 
OCOOhJ 
000073 

000117 
C 0 0 1 3 7 
GOO 1 A2 
0 C 0 1 a 3 
0001*5 

0 C 0 1 a s 
3 j 01 go 

0 1 0 1 o 4 

C GO 1 72 
C 0 0 20 0 
0 0 020 1 


GO 0002 
0 C 0 002 

000002 
CO 0002 
C 0 0 0 02 
000002 
000002 
000002 


0 C 0 0 02 
000002 
000002 
0 00022 
C0Q022 

000022 
C 0 0 0 23 
300024 
C 0 00 3b 
OCQOaO 
C G 00 *b 
G00C62 
C 00064 
OGOO 60 
000102 
C001 Ob 

00010 b 


R F A L K ] . * 2 

A YE ( X 1 . K2> = < A 1 + A/I /2. U 
^ iJ (J KfWHuT ( 1 Hi * //33 a • i bA* « // ) 

^,|4 K 0KT4U T (3^X*oriXbiHNilC = F 9 . s , 3 A « b H Y S 0 N 1 C =F8.*>ttfA«<JHTS0NIC =Fi0.5) 
PE X = 7 • U 
C F L = l . 0 
CVL = J.O 

4 p H M = 0 • 0 
Ra YE=PsON t C ( 1 ) 

■WlTt: ( S » S 0 0 ) (TlTLttMi X = 1 . 1 b ) 

30 10 1 = 1.1 SONIC 
4LPHA=C0nV4*TSGNI C ( 1 > 

vJRlTt (binO 4 *) ASOMC ( I) * YSONIC < I ) ♦ ALPHA 
IF (I ,tU. 1 > aO Tu i,i 
Y 4 v£ = A v/E ( YdONTC ( i ) « YsUNIC < I-L ) ) 

TAVE=AVE ( T SONIC < 1 ) * T SONIC <1-1 ) ) 

OA = X SONIC < 1-1) -A SONIC < I ) 

! ) y = y ^ o.m i c { i-i ) -y^onic < i ) 

A i->kM = AP^M* { i . U*FO 1 M ) *YAvE**Fl)lM*L)Y 

CYL = CVL+(l.tM-FOIiv)*rA\/E**FOI M*C05 < TavE)*(COS<TAYE)*UY- 
1 STN< TAVL) ^UA) 

CFL = CFL+<L.0*M.)I^)*YAY£**FUli J OMC0S(TA\/E)*0Y-SINlTAVE)*DX) 

10 CON nwuF 
COL=COL/CFL 
CFL=CFL/apRM 

IF (REYPRM .to. 0.0) GO TO 12 
X 1 =4. 0 *0.3 70/(1. u ♦ PE A) /Cub < 4HS ( ANGR ) ) 

*2 = 4. 0*0. 17U#k£X/ < ( 1 . O+PEX) * (2.0 + PE X) ) 

CFL=< 1 . U-X 1 *Ht YP hM** < -O . 20 ) 

C YL = < 1 • 0-K2*WF YPkM** (-0.20) ) *CVL 
12 RETURN 
F'NO 


SUHKUOTTnF OUT CNl 

^RITE-OUT OF PERTINENT INFORMATION ALONG THE EJtCTOK CENTERUOUY 


COMMON A<P»i00>fY(2tl()0)»H(2»lO0)fT(2*100) 

COMMON XSLP(IOO) 9 Y SLP (100) * AMP (100) * THETA (10U> «PHP(100) * AMS (100) . 

1 PHSO00) t AS A S5 (10 0) 9 O AbUA (100) , ISLP 

COMMON X I S ( 2 i « 26 ) t Ylb <21 *26) * w 121 ) * rAU(2b) .NSONIC.NANGLE 
COMMON XSONI C < 2b ) . YSOnIC ( 26) .PbUNIC (26) * T SONIC <2b) » I SONIC 
COMMON XCONt (100) *YCGNE(100> *PCONE<lG0) « TCONE < 1 00 ) * ICONt 
COMMON XShOUOO) iYSHO (100) *OYSl)X < 10U) »NSHO 
COMMON XHOY (100) *YbUY(lO0) tOYSOA(lUO) tNHOY 

COMMON WTFLtHSHP.TUSt T OP * GAMS * GA^p , f UNG , AMR ♦ ANGR * APREF , A SS APS ♦ 

1 XPPIM» YPRIM. APPIM.OPPI MiCFLfCVLf CONA.UbUt * DSHD* END 9 

? PA Mb 9 YRATIO.P1 , COnVA t CONVR 1 FU I M * NUATA * NbTOP ♦ 

1 solyf . choxe * change * charge 9 typl»point*stag 

COMMON PTS(?S) 9 ARE A ( 2b ) * WLE AX ( 2b ) * TI TLE < 1 b ) « N 1 f LK . TR Y 
PEAL MACH 

FLJNM ( G * PH ) =SQKT <2.0/ <G-1 .0) * (PH** (- (G-1.0) /(il -1.0) ) 

<-00 FORMAT < 1H1 *//26Xi 1HA4.//) 

H02 FORMAT <21X*4HXC =F 6 • n . A* * 4H YC =F 6 • b * 4A 9 1 0HMACH NO. =F8 • b . 4X ♦ 7HTHE 
lTA =FB • S * 4X t bHP/HP =F3.b) 

LCHK=4b 
L I NE=0 


/iPlTtr. <6,bOU) < T 1 TLE ( K ) » K=l,lb) 

DO 10 1=1 * I CONE 

MACH = FUNM <6AMP«PC0NE ( I ) ) 

^RITE (6^602) XCONE ( I ) * YCONE < I ) »MAChf TCONE < I ) »PCONE ( I ) 
LINE=1*L1NE 

IF (LINE .LE. LCh* ) GO TO 10 

IF (I .LT. ICOnE) WRITE <6fb00) <TITLE(K), K = 1 * 1 2 ) 

10 CONTINUE 
RETURN 
EnO 
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SlMRuUTTNE OUTFLu(I) 

C 

C wRITt-OUT OF PERTINENT INFORMATION IN PRIMARY F LOW FIELD 

C 

C000UJ COMMON X(2*iUG)*Y<2*KnJ>*P(2*lU0)*T<2*100) 

C C 0 0 U 3 COMMON XSLP ( i Of) ) * YSLP ( 1 00 ) ♦ AMP ( i UO ) * THETA ( 1 Ou ) iPHP <100)*AMS(100)* 

1 ( 1 00) * AS ASS ( 1 0 0 ) *UASU.X (100) . 1 SLP 

000003 COMMON X t S ( 2 l , 2b 1 , Y I b ( 2 i *26 ) * * ( 2 X ) * TaU < 26 > * NSUN I C * N ANGLE 

CO 0003 COMMON X SONIC < 2b) * YS0 nIC<26> *PS0NIC (2b) * T SONIC (2o) * I SONIC 

0 0 0 0 0 3 COMMON XCONE(IOO) *YCUNE(100) *PCON£ (1 JO) * TCONt <l00) * I CONE 

0000 0 3 COMMON X ShO < 1 00 ) * Y brio ( 1 0 0 ) * D Y Su X ( 1 0 0 ) * NSHO 

000003 COMMON XHi) Y ( 1 00 ) • YrjO Y < 1 0 U ) * O YbU X < 1 00 ) * NHD Y 

C C 00 0 3 COMMON VTFL *HSHP, T 0 b , TOP . GAMS . GAMP . FUNG * AMK , AnoR , APKEF . A SSAPS . 

1 XPRIM. YPHIM.APRlM*DPRlM* CF L * C VL * CON A * DBU Y * DSHD * END * 

2 PAMH*YHATlO*PI.CONVA*CONVH*KUlM*NDATA*NsTOP* 

3 SOLVE * CHOKF .CHANGE *CHaRGE* TYPE*PO lNT* sTAu 

0C0003 COMMON PTS<25) *AREA (26) *WLEAr\(2S) *TI TLE < la ) * nI 1 lk • TRY 

0 00 00 3 COMMON/CPLOT/IPLUT * XS T AR T , YST AR T * XSPAN * Y SPAN . SCALE * SPAN * AX I S . 

1 XORGN* YCJRGN.XSHKT * YSHFT.KKK ( 14 ) .pp ( i*) .xDUWN ( 100 ) * Y ACROS (100 ) 

000003 PEAL MACH 

0 0 0 0 U 3 FUNM ( G ♦ PH ) =SOPT ( 2 . 0/ ( 6- 1 . 0 > * ( PH** ( - ( G- 1 . 0 ) /G ) - i • 0 ) ) 

000024 600 FORMAT (iHi *//4bX*3bHC0N0lTI0NS IN THE PRIMARY FLOW FIELD*//) 

300024 o02 FORMAT (24 X,AhXP =F9.6*aX*4HYP =F 8 . 5 * 4X . 1 OhMaCH NO. =F8.5*4X,6HP/H 

IP =F8 • 5 • AX * 7H THE T A =FH.5) 

00002a IF (IPLOT .ED. 1) C>0 fO 12 

000026 WRITE! (6*600) 

C 00032 DO 10 K = 1*1 00 

C0003S IF (P(I*K) .Ed. 0.0) DO TO 12 

G 00 037 MACrt = FlJNM (GAMP*P ( I *K) ) 

C00044 WRITE (6*602) X < 1 * K ) * Y < I * K ) * M ACH * P ( I * K ) * T ( I * K ) 

000072 10 CONTINUE 

000075 12 IF (IPLOT .£0. 1) CALL PLOTF < I ) 

000101 RETURN 

000102 END 


SUBROUTINE OUTPRF 
C 

C WRITE-OUT OF MACH NUMHER PROFILES 

C 

000002 COMMON X ( 2 * 1 0 0 > * Y ( 2 * 1 0 0 ) * P ( 2 * 1 0 0 ) * T ( 2 * 1 0 0 ) 

C 0 0 0 02 COMMON XSLP(IOC) *YSLP(100) * AMP ( 1 00 > * THETA ( 1 00 > *PHP(100) * AMS (100) * 

1 PHS(iOO) *ASASS(iUU) * DASUX (10 0) *ISlP 

000002 COMMON X I S ( 2 1 * 26 ) . Y I S ( 2 1 * 26 ) * W ( 2 1) * T AU ( 26 ) * NSON 1 C * NANGLE 

000002 COMMON XSONlC ( 2b > * YS0NlC<26) .PSONIC < 2b > *TS0N1C (2b) * ISON 1C 

000002 COMMON XCONE (100) * YCOnE ( 100) . PCONE ( 1 u 0 > *TCOnE (100) * I CONE 

000002 COMMON XSHU ( 1 0 0 ) * YSHD ( 1 0 0 ) * OYSU A ( 1 00 ) * NShU 

000002 COMMON XbOY ( 1 00 ) * YrtO Y ( 1 00 ) * DYHUx ( 1 U0 ) * NbOY 

00 0002 COMMON WTFL*HSHP,TOS* TOP* GAMS* DAMP* FUNG* AMR* ANUR*APREF*ASSAPS* 

1 XPPIM* YPK1M* APR IM*UPRIM*CFL*CVL*CONA*DbL>Y* DSHD *END* 

2 PAMH*YRATlO*PI *CUNVA*CONVR*FDlM*NDATA*NSTOP* 

3 SOLVE *CHUKF * CHANGE * CHARGE * T YPE * PO I NT * ST AG 

000002 COMMON PT S ( 25 ) * AREA ( 25 ) * wLE AK ( 25) * F I TLE ( 1 6 ) *NI 1 EK * TRY 

0000 02 COMMON/PRFLP/XPKK (6) * YPRF (6*25) * QPKF (6*25) *NPKF (bJ * M AX * NM A X 

000002 COMMON/OUTPN/IPNCH*KPNCH* ICUMP 

0000 0 2 FUNP (G, AM) = ( 1 . 0* ( G- 1 . 0 ) /2 . 0*AM*AM ) ** ( -G/ ( G- 1 . 0 ) ) 

C 000 1 7 FUNT (G* AM) = < 1 .0+ (G-l .9) /2.0*AM*AM) ** (-1 ) 

000030 b00 FORMAT ( 1 H 1 * //?. 7 X * 1 2A6 * /// ) 

000030 b02 FORMAT (19X.4HAP =F9 . S * 4X * 4H YP = Frt . 5 . 4X . 1 OHM ACM NO. =Fb • 5 • A X * 7HP/P 

10P =F8.5*hX* 7hT/ TUP =F8.5) 

0 C 0 030 b 04 FORMAT (/1HJ) 

CO 0 0 30 700 FORMAT (12Ab) 

000030 tQ? FORMAT ( 36HE JEC T OR MACH NO. FLOw FIELO AT A/R =Fb.3) 

000030 704 FORMAT (13) 

000030 706 FORMAT (8F10.S) 

000030 I SK I P = 0 

000031 WRITE (6*600) < T 1 TLE < J ) * J=1*12) 

C 0 0 0 a3 IF (KPNCH .GT. 0) PUNCH 700* ( F l TLE ( I ) * I=A*l2) 

00005b DO 14 1=1. MAX 
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, ■ C 0 0 eu 


IF ( ( I ) • F N • J ) UU 1 u 1 4 

000061 


KppF = 'Wh ( I > 

0 0 0 Oh 3 


I SK I H=1 ♦ I SK I k 

0 0 0 U to ** 


IF ( I SK I ^ • Mj, rtniiTE ((?it)O i +J 

C 0 0 0 7 1 


■K» 10 K=i .K^ kF 

C3C07J 


PP K b = F HNP (i,4MH 1 WPHF ( 1 «K ) ) 

0 0 0 0 7 7 


T F • • p = p U N T ( b A K P t ij (-> k F < I * K ) ) 

J 0 1 0 4 


vPITE (6 *h'JP) XP^i- ( I 1 « 1 HPh l I * K ) * u^kF ( I , K ) , PPEb f TEMP 

CCOl^b 

1 0 

CONTINUE 

C 0 0 1 30 


IF (I SKIP . EU. It bO fU 1? 

O;o01 3^ 


IF (I *FU. ^AX) i,() TO 12 

C 0 01 Oh 


I ^ K I P = 0 

C 0 0 1 j 4 


■V P I T P ( to ♦ r> 0 0 ) <T I TLt ( J I » J = 1 * 1 2 ) 

0 0 0 1 4 to 

1 P 

IF (KPnCH .00, 0) bO TO 1*+ 

0 0 0 U 7 


PUNCH 7uPf XPPF(I) 

0 j 0 1 b r> 


PUNCH 70 4, KPkF 

OCQltoJ 


PUNCH 7<)to* (TPKF ( 1 *K) *UPPf ( I fK) , K^i.KHKF) 

000203 

1 4 

CONTI NUF 

0 C 0 20 1> 


P P. T U H N 

0 0 0 2 0 7 


F NU 




SUHkOU T I NE PLOTC 


C 

f ' 

CALCOMP PLOT OF bHKOUb mNU CtNltP^OUr CONTOUP 

GuQ0G2 


20 PFTUPN 

0000 03 


End 



SUHPOUTINF PLUTF(I) 


c 



c 

calcomp plot of CHA^Acrc-vibr ic field 


c 


C 0 0 0 U 3 


pf TUPN 

0 0 0 0 0*+ 


End 


c 

c 

c 

G J 000 £ 
00000 J 


SUHPOUT I N£ PLUTL 

CALCOMP PLUT Oh PPIMAhT LIP ( CunClDS I ON OF PlOITJNG SEQUENCE) 

P t T U P M 
END 
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Figure 3. - Effect of Reynolds number on performance of a choked conical nozzle. Primary 
nozzle lip angle, a, 0; ratio of primary total pressure to reference static pressure, 

Pp^Po ^ 



(b) High secondary flow. 
Figure 4. - Secondary flow field. 
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